← Index
NYTProf Performance Profile   « line view »
For t/bug-md-11.t
  Run on Fri Mar 8 13:27:24 2024
Reported on Fri Mar 8 13:30:23 2024

Filename/home/micha/.plenv/versions/5.38.2/lib/perl5/site_perl/5.38.2/Test/Builder/Formatter.pm
StatementsExecuted 20 statements in 391µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1111.78ms2.16msTest::Builder::Formatter::::BEGIN@7Test::Builder::Formatter::BEGIN@7
11118µs20µsTest::Builder::Formatter::::BEGIN@11Test::Builder::Formatter::BEGIN@11
1119µs11µsTest::Builder::Formatter::::BEGIN@2Test::Builder::Formatter::BEGIN@2
1115µs51µsTest::Builder::Formatter::::BEGIN@9Test::Builder::Formatter::BEGIN@9
1115µs9µsTest::Builder::Formatter::::plan_tapTest::Builder::Formatter::plan_tap
1114µs20µsTest::Builder::Formatter::::BEGIN@3Test::Builder::Formatter::BEGIN@3
1113µs86µsTest::Builder::Formatter::::initTest::Builder::Formatter::init
0000s0sTest::Builder::Formatter::::__ANON__[:16]Test::Builder::Formatter::__ANON__[:16]
0000s0sTest::Builder::Formatter::::debug_tapTest::Builder::Formatter::debug_tap
0000s0sTest::Builder::Formatter::::info_tapTest::Builder::Formatter::info_tap
0000s0sTest::Builder::Formatter::::no_subtest_spaceTest::Builder::Formatter::no_subtest_space
0000s0sTest::Builder::Formatter::::redirectTest::Builder::Formatter::redirect
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Test::Builder::Formatter;
2218µs213µs
# spent 11µs (9+2) within Test::Builder::Formatter::BEGIN@2 which was called: # once (9µs+2µs) by Test::Builder::BEGIN@36 at line 2
use strict;
# spent 11µs making 1 call to Test::Builder::Formatter::BEGIN@2 # spent 2µs making 1 call to strict::import
3233µs237µs
# spent 20µs (4+17) within Test::Builder::Formatter::BEGIN@3 which was called: # once (4µs+17µs) by Test::Builder::BEGIN@36 at line 3
use warnings;
# spent 20µs making 1 call to Test::Builder::Formatter::BEGIN@3 # spent 17µs making 1 call to warnings::import
4
51200nsour $VERSION = '1.302198';
6
7280µs12.16ms
# spent 2.16ms (1.78+384µs) within Test::Builder::Formatter::BEGIN@7 which was called: # once (1.78ms+384µs) by Test::Builder::BEGIN@36 at line 7
BEGIN { require Test2::Formatter::TAP; our @ISA = qw(Test2::Formatter::TAP) }
# spent 2.16ms making 1 call to Test::Builder::Formatter::BEGIN@7
8
9248µs297µs
# spent 51µs (5+46) within Test::Builder::Formatter::BEGIN@9 which was called: # once (5µs+46µs) by Test::Builder::BEGIN@36 at line 9
use Test2::Util::HashBase qw/no_header no_diag/;
# spent 51µs making 1 call to Test::Builder::Formatter::BEGIN@9 # spent 46µs making 1 call to Test2::Util::HashBase::import
10
11
# spent 20µs (18+2) within Test::Builder::Formatter::BEGIN@11 which was called: # once (18µs+2µs) by Test::Builder::BEGIN@36 at line 17
BEGIN {
1215µs1900ns *OUT_STD = Test2::Formatter::TAP->can('OUT_STD');
# spent 900ns making 1 call to UNIVERSAL::can
1317µs1500ns *OUT_ERR = Test2::Formatter::TAP->can('OUT_ERR');
# spent 500ns making 1 call to UNIVERSAL::can
14
1513µs1300ns my $todo = OUT_ERR() + 1;
# spent 300ns making 1 call to Test2::Formatter::TAP::OUT_ERR
1615µs *OUT_TODO = sub() { $todo };
171182µs120µs}
# spent 20µs making 1 call to Test::Builder::Formatter::BEGIN@11
18
19
# spent 86µs (3+82) within Test::Builder::Formatter::init which was called: # once (3µs+82µs) by Test2::Util::HashBase::_new at line 155 of Test2/Util/HashBase.pm
sub init {
201100ns my $self = shift;
2111µs182µs $self->SUPER::init(@_);
# spent 82µs making 1 call to Test2::Formatter::TAP::init
2212µs $self->{+HANDLES}->[OUT_TODO] = $self->{+HANDLES}->[OUT_STD];
23}
24
25
# spent 9µs (5+4) within Test::Builder::Formatter::plan_tap which was called: # once (5µs+4µs) by Test2::Formatter::TAP::event_tap at line 169 of Test2/Formatter/TAP.pm
sub plan_tap {
261300ns my ($self, $f) = @_;
27
281400ns return if $self->{+NO_HEADER};
2914µs14µs return $self->SUPER::plan_tap($f);
# spent 4µs making 1 call to Test2::Formatter::TAP::plan_tap
30}
31
32sub debug_tap {
33 my ($self, $f, $num) = @_;
34 return if $self->{+NO_DIAG};
35 my @out = $self->SUPER::debug_tap($f, $num);
36 $self->redirect(\@out) if @out && ref $f->{about} && defined $f->{about}->{package}
37 && $f->{about}->{package} eq 'Test::Builder::TodoDiag';
38 return @out;
39}
40
41sub info_tap {
42 my ($self, $f) = @_;
43 return if $self->{+NO_DIAG};
44 my @out = $self->SUPER::info_tap($f);
45 $self->redirect(\@out) if @out && ref $f->{about} && defined $f->{about}->{package}
46 && $f->{about}->{package} eq 'Test::Builder::TodoDiag';
47 return @out;
48}
49
50sub redirect {
51 my ($self, $out) = @_;
52 $_->[0] = OUT_TODO for @$out;
53}
54
55sub no_subtest_space { 1 }
56
5712µs1;
58
59__END__