← Index
NYTProf Performance Profile   « line view »
For opt.pl
  Run on Tue May 12 15:32:29 2015
Reported on Tue May 12 15:32:30 2015

Filename/home/lbr/.plenv/versions/5.20.2/lib/perl5/5.20.2/PerlIO.pm
StatementsExecuted 11 statements in 74µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
111169µs6.40msPerlIO::::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
31400nsour $VERSION = '1.09';
4
5# Map layer name to package that defines it
61300nsour %alias;
7
8sub import
9
# spent 6.40ms (169µs+6.23) within PerlIO::import which was called: # once (169µs+6.23ms) by main::BEGIN@53 at line 53 of opt.pl
{
101400ns 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 {
2011µs $layer = "${class}::$layer";
21 }
22264µs13µs eval { require $layer =~ s{::}{/}gr . '.pm' };
# spent 3µs making 1 call to PerlIO::CORE:subst
2312µ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