← Index
NYTProf Performance Profile   « line view »
For opt.pl
  Run on Wed May 13 13:47:05 2015
Reported on Wed May 13 13:47:06 2015

Filename/home/lbr/.plenv/versions/5.20.2/lib/perl5/5.20.2/PerlIO.pm
StatementsExecuted 11 statements in 65µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
111143µs6.25msPerlIO::::importPerlIO::import
1112µs2µsPerlIO::::CORE:substPerlIO::CORE:subst (opcode)
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
31300nsour $VERSION = '1.09';
4
5# Map layer name to package that defines it
61200nsour %alias;
7
8sub import
9
# spent 6.25ms (143µs+6.10) within PerlIO::import which was called: # once (143µs+6.10ms) by main::BEGIN@53 at line 53 of opt.pl
{
101300ns my $class = shift;
1113µs while (@_)
12 {
131100ns my $layer = shift;
141500ns if (exists $alias{$layer})
15 {
16 $layer = $alias{$layer}
17 }
18 else
19 {
2011µs $layer = "${class}::$layer";
21 }
22256µs12µs eval { require $layer =~ s{::}{/}gr . '.pm' };
# spent 2µs making 1 call to PerlIO::CORE:subst
2311µs warn $@ if $@;
24 }
25}
26
27sub F_UTF8 () { 0x8000 }
28
2912µs1;
30__END__
 
# spent 2µs within PerlIO::CORE:subst which was called: # once (2µs+0s) by PerlIO::import at line 22
sub PerlIO::CORE:subst; # opcode