summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/TAP/Parser.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/TAP/Parser.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/TAP/Parser.pm21
1 files changed, 17 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/TAP/Parser.pm b/Master/tlpkg/tlperl/lib/TAP/Parser.pm
index 1ebb0db969c..22222c2482e 100644
--- a/Master/tlpkg/tlperl/lib/TAP/Parser.pm
+++ b/Master/tlpkg/tlperl/lib/TAP/Parser.pm
@@ -27,11 +27,11 @@ TAP::Parser - Parse L<TAP|Test::Harness::TAP> output
=head1 VERSION
-Version 3.30
+Version 3.35
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.35';
my $DEFAULT_TAP_VERSION = 12;
my $MAX_TAP_VERSION = 13;
@@ -60,6 +60,8 @@ BEGIN { # making accessors
in_todo
start_time
end_time
+ start_times
+ end_times
skip_all
grammar_class
result_factory_class
@@ -1007,11 +1009,20 @@ were skipped.
=head3 C<start_time>
-Returns the time when the Parser was created.
+Returns the wall-clock time when the Parser was created.
=head3 C<end_time>
-Returns the time when the end of TAP input was seen.
+Returns the wall-clock time when the end of TAP input was seen.
+
+=head3 C<start_times>
+
+Returns the CPU times (like L<perlfunc/times> when the Parser was created.
+
+=head3 C<end_times>
+
+Returns the CPU times (like L<perlfunc/times> when the end of TAP
+input was seen.
=head3 C<has_problems>
@@ -1374,6 +1385,7 @@ sub _iter {
my $state_table = $self->_make_state_table;
$self->start_time( $self->get_time );
+ $self->start_times( $self->get_times );
# Make next_state closure
my $next_state = sub {
@@ -1466,6 +1478,7 @@ sub _finish {
my $self = shift;
$self->end_time( $self->get_time );
+ $self->end_times( $self->get_times );
# Avoid leaks
$self->_iterator(undef);