← Index
NYTProf Performance Profile   « block view • line view • sub view »
For bin/hailo
  Run on Thu Oct 21 22:50:37 2010
Reported on Thu Oct 21 22:52:11 2010

Filename/home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/5.13.5/PerlIO.pm
StatementsExecuted 10 statements in 96µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
111305µs11.4msPerlIO::::importPerlIO::import
21110µs10µsPerlIO::::get_layersPerlIO::get_layers (xsub)
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
313µsour $VERSION = '1.06';
4
5# Map layer name to package that defines it
612µsour %alias;
7
8sub import
9
# spent 11.4ms (305µs+11.1) within PerlIO::import which was called: # once (305µs+11.1ms) by open::BEGIN@88 at line 88 of open.pm
{
1013µs my $class = shift;
1117µs while (@_)
12 {
1312µs my $layer = shift;
1414µs if (exists $alias{$layer})
15 {
16 $layer = $alias{$layer}
17 }
18 else
19 {
2015µs $layer = "${class}::$layer";
21 }
22158µs eval "require $layer";
# spent 113µs executing statements in string eval
2313µs warn $@ if $@;
24 }
25}
26
27sub F_UTF8 () { 0x8000 }
28
29110µs1;
30__END__
 
# spent 10µs within PerlIO::get_layers which was called 2 times, avg 5µs/call: # 2 times (10µs+0s) by open::_drop_oldenc at line 37 of open.pm, avg 5µs/call
sub PerlIO::get_layers; # xsub