use strict;
use warnings;
-use parent 'TAP::Object';
+use base 'TAP::Object';
=head1 NAME
=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);';
package TAP::Whatever;
- use parent 'TAP::Base';
+ use base 'TAP::Base';
# ... later ...
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;