← Index
NYTProf Performance Profile   « block view • line view • sub view »
For xt/tapper-mcp-scheduler-with-db-longrun.t
  Run on Tue May 22 17:18:39 2012
Reported on Tue May 22 17:24:08 2012

Filename/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/5.12.3/PerlIO.pm
StatementsExecuted 3 statements in 4µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
21113µs13µ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
31500nsour $VERSION = '1.06';
4
5# Map layer name to package that defines it
61300nsour %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
2913µs1;
30__END__
 
# spent 13µs within PerlIO::get_layers which was called 2 times, avg 7µs/call: # 2 times (13µs+0s) by Test::Builder::__ANON__[/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/5.12.3/Test/Builder.pm:1906] at line 1903 of Test/Builder.pm, avg 7µs/call
sub PerlIO::get_layers; # xsub