diff options
Diffstat (limited to 'cpan/Test-Harness/lib/TAP/Base.pm')
| -rw-r--r-- | cpan/Test-Harness/lib/TAP/Base.pm | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/cpan/Test-Harness/lib/TAP/Base.pm b/cpan/Test-Harness/lib/TAP/Base.pm index 5867ee73e7..ab02ac767d 100644 --- a/cpan/Test-Harness/lib/TAP/Base.pm +++ b/cpan/Test-Harness/lib/TAP/Base.pm @@ -12,11 +12,11 @@ and L<TAP::Harness> =head1 VERSION -Version 3.33 +Version 3.34 =cut -our $VERSION = '3.33'; +our $VERSION = '3.34'; use constant GOT_TIME_HIRES => do { eval 'use Time::HiRes qw(time);'; @@ -121,4 +121,13 @@ Return true if the time returned by get_time is high resolution (i.e. if Time::H sub time_is_hires { return GOT_TIME_HIRES } +=head3 C<get_times> + +Return array reference of the four-element list of CPU seconds, +as with L<perlfunc/times>. + +=cut + +sub get_times { return [ times() ] } + 1; |