← 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/Bail.pm
StatementsExecuted 10 statements in 175µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11110µs12µsTest2::Event::Bail::::BEGIN@2Test2::Event::Bail::BEGIN@2
1116µs6µsTest2::Event::Bail::::BEGIN@8Test2::Event::Bail::BEGIN@8
1114µs52µsTest2::Event::Bail::::BEGIN@9Test2::Event::Bail::BEGIN@9
1113µs20µsTest2::Event::Bail::::BEGIN@3Test2::Event::Bail::BEGIN@3
0000s0sTest2::Event::Bail::::causes_failTest2::Event::Bail::causes_fail
0000s0sTest2::Event::Bail::::diagnosticsTest2::Event::Bail::diagnostics
0000s0sTest2::Event::Bail::::facet_dataTest2::Event::Bail::facet_data
0000s0sTest2::Event::Bail::::globalTest2::Event::Bail::global
0000s0sTest2::Event::Bail::::summaryTest2::Event::Bail::summary
0000s0sTest2::Event::Bail::::terminateTest2::Event::Bail::terminate
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::Bail;
2218µs213µs
# spent 12µs (10+2) within Test2::Event::Bail::BEGIN@2 which was called: # once (10µs+2µs) by Test2::API::BEGIN@96 at line 2
use strict;
# spent 12µs making 1 call to Test2::Event::Bail::BEGIN@2 # spent 2µs making 1 call to strict::import
3235µs237µs
# spent 20µs (3+17) within Test2::Event::Bail::BEGIN@3 which was called: # once (3µs+17µs) by Test2::API::BEGIN@96 at line 3
use warnings;
# spent 20µs making 1 call to Test2::Event::Bail::BEGIN@3 # spent 17µs making 1 call to warnings::import
4
51300nsour $VERSION = '1.302198';
6
7
8221µs16µs
# spent 6µs within Test2::Event::Bail::BEGIN@8 which was called: # once (6µs+0s) by Test2::API::BEGIN@96 at line 8
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
# spent 6µs making 1 call to Test2::Event::Bail::BEGIN@8
9298µs2100µs
# spent 52µs (4+48) within Test2::Event::Bail::BEGIN@9 which was called: # once (4µs+48µs) by Test2::API::BEGIN@96 at line 9
use Test2::Util::HashBase qw{reason buffered};
# spent 52µs making 1 call to Test2::Event::Bail::BEGIN@9 # spent 48µs making 1 call to Test2::Util::HashBase::import
10
11# Make sure the tests terminate
12sub terminate { 255 };
13
14sub global { 1 };
15
16sub causes_fail { 1 }
17
18sub summary {
19 my $self = shift;
20 return "Bail out! " . $self->{+REASON}
21 if $self->{+REASON};
22
23 return "Bail out!";
24}
25
26sub diagnostics { 1 }
27
28sub facet_data {
29 my $self = shift;
30 my $out = $self->common_facet_data;
31
32 $out->{control} = {
33 global => 1,
34 halt => 1,
35 details => $self->{+REASON},
36 terminate => 255,
37 };
38
39 return $out;
40}
41
4212µs1;
43
44__END__