← 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/5.38.2/parent.pm
StatementsExecuted 48 statements in 250µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
553426µs514µsparent::::importparent::import
1118µs10µsparent::::BEGIN@2parent::BEGIN@2
1115µs9µsparent::::BEGIN@21parent::BEGIN@21
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package parent;
2275µs212µs
# spent 10µs (8+2) within parent::BEGIN@2 which was called: # once (8µs+2µs) by File::Temp::BEGIN@167 at line 2
use strict;
# spent 10µs making 1 call to parent::BEGIN@2 # spent 2µs making 1 call to strict::import
3
41300nsour $VERSION = '0.241';
5
6
# spent 514µs (426+88) within parent::import which was called 5 times, avg 103µs/call: # once (385µs+77µs) by Encode::UTF_EBCDIC::BEGIN@178 at line 178 of Encode.pm # once (12µs+5µs) by File::Temp::BEGIN@167 at line 167 of File/Temp.pm # once (11µs+2µs) by Encode::utf8::BEGIN@215 at line 215 of Encode.pm # once (10µs+3µs) by Encode::XS::BEGIN@210 at line 210 of Encode.pm # once (8µs+1000ns) by Time::Local::BEGIN@10 at line 10 of Time/Local.pm
sub import {
751µs my $class = shift;
8
952µs my $inheritor = caller(0);
10
1153µs if ( @_ and $_[0] eq '-norequire' ) {
12 shift @_;
13 } else {
1455µs for ( my @filename = @_ ) {
15626µs615µs s{::|'}{/}g;
# spent 15µs making 6 calls to CORE::subst, avg 2µs/call
16659µs require "$_.pm"; # dies if the file is not found
17 }
18 }
19
20 {
21754µs213µs
# spent 9µs (5+4) within parent::BEGIN@21 which was called: # once (5µs+4µs) by File::Temp::BEGIN@167 at line 21
no strict 'refs';
# spent 9µs making 1 call to parent::BEGIN@21 # spent 4µs making 1 call to strict::unimport
22523µs push @{"$inheritor\::ISA"}, @_; # dies if a loop is detected
23 };
24};
25
2612µs1;
27
28__END__