← 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/Test2/Event/Skip.pm
StatementsExecuted 10 statements in 189µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11110µs11µsTest2::Event::Skip::::BEGIN@2Test2::Event::Skip::BEGIN@2
1117µs7µsTest2::Event::Skip::::BEGIN@8Test2::Event::Skip::BEGIN@8
1113µs45µsTest2::Event::Skip::::BEGIN@9Test2::Event::Skip::BEGIN@9
1113µs20µsTest2::Event::Skip::::BEGIN@3Test2::Event::Skip::BEGIN@3
0000s0sTest2::Event::Skip::::causes_failTest2::Event::Skip::causes_fail
0000s0sTest2::Event::Skip::::extra_amnestyTest2::Event::Skip::extra_amnesty
0000s0sTest2::Event::Skip::::initTest2::Event::Skip::init
0000s0sTest2::Event::Skip::::summaryTest2::Event::Skip::summary
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Test2::Event::Skip;
2217µs213µs
# spent 11µs (10+2) within Test2::Event::Skip::BEGIN@2 which was called: # once (10µs+2µs) by Test2::API::BEGIN@99 at line 2
use strict;
# spent 11µs making 1 call to Test2::Event::Skip::BEGIN@2 # spent 2µs making 1 call to strict::import
3233µs236µs
# spent 20µs (3+16) within Test2::Event::Skip::BEGIN@3 which was called: # once (3µs+16µs) by Test2::API::BEGIN@99 at line 3
use warnings;
# spent 20µs making 1 call to Test2::Event::Skip::BEGIN@3 # spent 16µs making 1 call to warnings::import
4
51200nsour $VERSION = '1.302198';
6
7
8221µs17µs
# spent 7µs within Test2::Event::Skip::BEGIN@8 which was called: # once (7µs+0s) by Test2::API::BEGIN@99 at line 8
BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) }
# spent 7µs making 1 call to Test2::Event::Skip::BEGIN@8
92116µs287µs
# spent 45µs (3+42) within Test2::Event::Skip::BEGIN@9 which was called: # once (3µs+42µs) by Test2::API::BEGIN@99 at line 9
use Test2::Util::HashBase qw{reason};
# spent 45µs making 1 call to Test2::Event::Skip::BEGIN@9 # spent 42µs making 1 call to Test2::Util::HashBase::import
10
11sub init {
12 my $self = shift;
13 $self->SUPER::init;
14 $self->{+EFFECTIVE_PASS} = 1;
15}
16
17sub causes_fail { 0 }
18
19sub summary {
20 my $self = shift;
21 my $out = $self->SUPER::summary(@_);
22
23 if (my $reason = $self->reason) {
24 $out .= " (SKIP: $reason)";
25 }
26 else {
27 $out .= " (SKIP)";
28 }
29
30 return $out;
31}
32
33sub extra_amnesty {
34 my $self = shift;
35
36 my @out;
37
38 push @out => {
39 tag => 'TODO',
40 details => $self->{+TODO},
41 } if defined $self->{+TODO};
42
43 push @out => {
44 tag => 'skip',
45 details => $self->{+REASON},
46 inherited => 0,
47 };
48
49 return @out;
50}
51
5212µs1;
53
54__END__