← 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/Note.pm
StatementsExecuted 10 statements in 169µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11112µs13µsTest2::Event::Note::::BEGIN@2Test2::Event::Note::BEGIN@2
1117µs7µsTest2::Event::Note::::BEGIN@8Test2::Event::Note::BEGIN@8
1114µs41µsTest2::Event::Note::::BEGIN@9Test2::Event::Note::BEGIN@9
1113µs20µsTest2::Event::Note::::BEGIN@3Test2::Event::Note::BEGIN@3
0000s0sTest2::Event::Note::::facet_dataTest2::Event::Note::facet_data
0000s0sTest2::Event::Note::::initTest2::Event::Note::init
0000s0sTest2::Event::Note::::summaryTest2::Event::Note::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::Note;
2219µs215µs
# spent 13µs (12+2) within Test2::Event::Note::BEGIN@2 which was called: # once (12µs+2µs) by Test2::API::BEGIN@94 at line 2
use strict;
# spent 13µs making 1 call to Test2::Event::Note::BEGIN@2 # spent 2µs making 1 call to strict::import
3233µs237µs
# spent 20µs (3+17) within Test2::Event::Note::BEGIN@3 which was called: # once (3µs+17µs) by Test2::API::BEGIN@94 at line 3
use warnings;
# spent 20µs making 1 call to Test2::Event::Note::BEGIN@3 # spent 17µs making 1 call to warnings::import
4
51300nsour $VERSION = '1.302198';
6
7
8224µs17µs
# spent 7µs within Test2::Event::Note::BEGIN@8 which was called: # once (7µs+0s) by Test2::API::BEGIN@94 at line 8
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
# spent 7µs making 1 call to Test2::Event::Note::BEGIN@8
9290µs278µs
# spent 41µs (4+38) within Test2::Event::Note::BEGIN@9 which was called: # once (4µs+38µs) by Test2::API::BEGIN@94 at line 9
use Test2::Util::HashBase qw/message/;
# spent 41µs making 1 call to Test2::Event::Note::BEGIN@9 # spent 38µ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 facet_data {
18 my $self = shift;
19
20 my $out = $self->common_facet_data;
21
22 $out->{info} = [
23 {
24 tag => 'NOTE',
25 debug => 0,
26 details => $self->{+MESSAGE},
27 }
28 ];
29
30 return $out;
31}
32
3312µs1;
34
35__END__