This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update Test::Harness to 3.44
[perl5.git]
/
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
(file)
--- 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 strict;
use warnings;
-use
parent
'TAP::Object';
+use
base
'TAP::Object';
=head1 NAME
=head1 NAME
@@
-12,11
+12,11
@@
and L<TAP::Harness>
=head1 VERSION
=head1 VERSION
-Version 3.
29
+Version 3.
44
=cut
=cut
-our $VERSION = '3.
29
';
+our $VERSION = '3.
44
';
use constant GOT_TIME_HIRES => do {
eval 'use Time::HiRes qw(time);';
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;
package TAP::Whatever;
- use
parent
'TAP::Base';
+ use
base
'TAP::Base';
# ... later ...
# ... 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 }
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;
1;