← 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/PerlIO.pm
StatementsExecuted 2 statements in 3µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
4117µs7µsPerlIO::::get_layersPerlIO::get_layers (xsub)
0000s0sPerlIO::::importPerlIO::import
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package PerlIO;
2
31400nsour $VERSION = '1.12';
4
5# Map layer name to package that defines it
6our %alias;
7
8sub import
9{
10 my $class = shift;
11 while (@_)
12 {
13 my $layer = shift;
14 if (exists $alias{$layer})
15 {
16 $layer = $alias{$layer}
17 }
18 else
19 {
20 $layer = "${class}::$layer";
21 }
22 eval { require $layer =~ s{::}{/}gr . '.pm' };
23 warn $@ if $@;
24 }
25}
26
27sub F_UTF8 () { 0x8000 }
28
2913µs1;
30__END__
 
# spent 7µs within PerlIO::get_layers which was called 4 times, avg 2µs/call: # 4 times (7µs+0s) by Test2::Util::clone_io at line 194 of Test2/Util.pm, avg 2µs/call
sub PerlIO::get_layers; # xsub