← 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/Diag.pm
StatementsExecuted 10 statements in 171µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11110µs12µsTest2::Event::Diag::::BEGIN@2Test2::Event::Diag::BEGIN@2
1116µs6µsTest2::Event::Diag::::BEGIN@8Test2::Event::Diag::BEGIN@8
1114µs44µsTest2::Event::Diag::::BEGIN@9Test2::Event::Diag::BEGIN@9
1114µs21µsTest2::Event::Diag::::BEGIN@3Test2::Event::Diag::BEGIN@3
0000s0sTest2::Event::Diag::::diagnosticsTest2::Event::Diag::diagnostics
0000s0sTest2::Event::Diag::::facet_dataTest2::Event::Diag::facet_data
0000s0sTest2::Event::Diag::::initTest2::Event::Diag::init
0000s0sTest2::Event::Diag::::summaryTest2::Event::Diag::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::Diag;
2223µs213µs
# spent 12µs (10+2) within Test2::Event::Diag::BEGIN@2 which was called: # once (10µs+2µs) by Test2::API::BEGIN@93 at line 2
use strict;
# spent 12µs making 1 call to Test2::Event::Diag::BEGIN@2 # spent 2µs making 1 call to strict::import
3232µs238µs
# spent 21µs (4+17) within Test2::Event::Diag::BEGIN@3 which was called: # once (4µs+17µs) by Test2::API::BEGIN@93 at line 3
use warnings;
# spent 21µs making 1 call to Test2::Event::Diag::BEGIN@3 # spent 17µs making 1 call to warnings::import
4
51300nsour $VERSION = '1.302198';
6
7
8227µs16µs
# spent 6µs within Test2::Event::Diag::BEGIN@8 which was called: # once (6µs+0s) by Test2::API::BEGIN@93 at line 8
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
# spent 6µs making 1 call to Test2::Event::Diag::BEGIN@8
9287µs284µs
# spent 44µs (4+40) within Test2::Event::Diag::BEGIN@9 which was called: # once (4µs+40µs) by Test2::API::BEGIN@93 at line 9
use Test2::Util::HashBase qw/message/;
# spent 44µs making 1 call to Test2::Event::Diag::BEGIN@9 # spent 40µs making 1 call to Test2::Util::HashBase::import
10
11sub init {
12 $_[0]->{+MESSAGE} = 'undef' unless defined $_[0]->{+MESSAGE};
13}
14
15sub summary { $_[0]->{+MESSAGE} }
16
17sub diagnostics { 1 }
18
19sub facet_data {
20 my $self = shift;
21
22 my $out = $self->common_facet_data;
23
24 $out->{info} = [
25 {
26 tag => 'DIAG',
27 debug => 1,
28 details => $self->{+MESSAGE},
29 }
30 ];
31
32 return $out;
33}
34
3512µs1;
36
37__END__