← Index
NYTProf Performance Profile   « line view »
For opt.pl
  Run on Fri May 8 15:08:12 2015
Reported on Fri May 8 15:08:16 2015

Filename/home/lbr/.plenv/versions/5.20.2/lib/perl5/5.20.2/PerlIO.pm
StatementsExecuted 11 statements in 72µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
111150µs6.61msPerlIO::::importPerlIO::import
1113µs3µ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.61ms (150µs+6.46) within PerlIO::import which was called: # once (150µs+6.46ms) by main::BEGIN@53 at line 53 of opt.pl
{
101500ns my $class = shift;
1113µs while (@_)
12 {
131200ns my $layer = shift;
141600ns if (exists $alias{$layer})
15 {
16 $layer = $alias{$layer}
17 }
18 else
19 {
201900ns $layer = "${class}::$layer";
21 }
22262µs13µs eval { require $layer =~ s{::}{/}gr . '.pm' };
# spent 3µ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 3µs within PerlIO::CORE:subst which was called: # once (3µs+0s) by PerlIO::import at line 22
sub PerlIO::CORE:subst; # opcode