← Index
NYTProf Performance Profile   « line view »
For /Users/timbo/perl5/perlbrew/perls/perl-5.18.2/bin/perlcritic
  Run on Sat Mar 19 22:12:22 2016
Reported on Sat Mar 19 22:14:12 2016

Filename/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/5.18.2/PerlIO.pm
StatementsExecuted 10 statements in 29µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
111183µs524µsPerlIO::::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
31500nsour $VERSION = '1.07';
4
5# Map layer name to package that defines it
61200nsour %alias;
7
8sub import
9
# spent 524µs (183+341) within PerlIO::import which was called: # once (183µs+341µs) by Path::Tiny::BEGIN@816 at line 816 of Path/Tiny.pm
{
101400ns my $class = shift;
1114µs while (@_)
12 {
131200ns my $layer = shift;
141300ns if (exists $alias{$layer})
15 {
16 $layer = $alias{$layer}
17 }
18 else
19 {
2011µs $layer = "${class}::$layer";
21 }
22119µs eval "require $layer";
# spent 58µs executing statements in string eval
231600ns warn $@ if $@;
24 }
25}
26
27sub F_UTF8 () { 0x8000 }
28
2913µs1;
30__END__