← Index
NYTProf Performance Profile   « block view • line view • sub view »
For t/app_dpath.t
  Run on Tue Jun 5 15:25:28 2012
Reported on Tue Jun 5 15:26:09 2012

Filename/home/ss5/perl5/perlbrew/perls/perl-5.14.1/lib/5.14.1/PerlIO.pm
StatementsExecuted 3 statements in 18µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
21134µs34µsPerlIO::::get_layersPerlIO::get_layers (xsub)
0000s0sPerlIO::::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
313µsour $VERSION = '1.07';
4
5# Map layer name to package that defines it
611µsour %alias;
7
8sub import
9{
10 my $class = shift;
11 while (@_)
12 {
13 my $layer = shift;
14 if (exists $alias{$layer})
15 {
16 $layer = $alias{$layer}
17 }
18 else
19 {
20 $layer = "${class}::$layer";
21 }
22 eval "require $layer";
23 warn $@ if $@;
24 }
25}
26
27sub F_UTF8 () { 0x8000 }
28
29114µs1;
30__END__
 
# spent 34µs within PerlIO::get_layers which was called 2 times, avg 17µs/call: # 2 times (34µs+0s) by Test::Builder::__ANON__[/home/ss5/perl5/perlbrew/perls/perl-5.14.1/lib/5.14.1/Test/Builder.pm:1906] at line 1903 of Test/Builder.pm, avg 17µs/call
sub PerlIO::get_layers; # xsub