X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/befb53592411375e6f3fb664447f4f80067211e1..34b62aa65c7a985078cbf79c36e529a89db91c3c:/cpan/Test-Harness/lib/TAP/Base.pm

diff --git a/cpan/Test-Harness/lib/TAP/Base.pm b/cpan/Test-Harness/lib/TAP/Base.pm
index 5a5ea77..d3de933 100644
--- a/cpan/Test-Harness/lib/TAP/Base.pm
+++ b/cpan/Test-Harness/lib/TAP/Base.pm
@@ -3,7 +3,7 @@ package TAP::Base;
 use strict;
 use warnings;
 
-use parent 'TAP::Object';
+use base 'TAP::Object';
 
 =head1 NAME
 
@@ -12,11 +12,11 @@ and L<TAP::Harness>
 
 =head1 VERSION
 
-Version 3.29
+Version 3.44
 
 =cut
 
-our $VERSION = '3.29';
+our $VERSION = '3.44';
 
 use constant GOT_TIME_HIRES => do {
     eval 'use Time::HiRes qw(time);';
@@ -27,7 +27,7 @@ use constant GOT_TIME_HIRES => do {
 
     package TAP::Whatever;
 
-    use parent 'TAP::Base';
+    use base 'TAP::Base';
 
     # ... later ...
     
@@ -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;