Profile of PerlIO.pm

← Index
NYTProf Performance Profile «line view»
For script/ponapi
Run on Wed Feb 10 15:51:26 2016
Reported on Thu Feb 11 09:43:12 2016

Filename | /usr/share/perl/5.18/PerlIO.pm
Statements | Executed 10 statements in 54µs

Subroutines
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
1 | 1 | 1 | 282µs | 572µs | PerlIO::::importPerlIO::import

Call graph for these subroutines as a Graphviz dot language file.

Line | State ments | Time on line | Calls | Time in subs | Code
--- | --- | --- | --- | --- | ---
1 |  |  |  |  | package PerlIO;
2 |  |  |  |  |
3 | 1 | 700ns |  |  | our $VERSION = '1.07';
4 |  |  |  |  |
5 |  |  |  |  | # Map layer name to package that defines it
6 | 1 | 900ns |  |  | our %alias;
7 |  |  |  |  |
8 |  |  |  |  | sub import
9 |  |  |  |  | # spent 572µs (282+290) within PerlIO::import which was called: # once (282µs+290µs) by HTTP::Server::PSGI::BEGIN@166 at line 166 of HTTP/Server/PSGI.pm {
10 | 1 | 2µs |  |  | my $class = shift;
11 | 1 | 8µs |  |  | while (@_)
12 |  |  |  |  | {
13 | 1 | 300ns |  |  | my $layer = shift;
14 | 1 | 1µs |  |  | if (exists $alias{$layer})
15 |  |  |  |  | {
16 |  |  |  |  | $layer = $alias{$layer}
17 |  |  |  |  | }
18 |  |  |  |  | else
19 |  |  |  |  | {
20 | 1 | 1µs |  |  | $layer = "${class}::$layer";
21 |  |  |  |  | }
22 | 1 | 32µs |  |  | eval "require $layer"; # spent 203µs executing statements in string eval
23 | 1 | 2µs |  |  | warn $@ if $@;
24 |  |  |  |  | }
25 |  |  |  |  | }
26 |  |  |  |  |
27 |  |  |  |  | sub F_UTF8 () { 0x8000 }
28 |  |  |  |  |
29 | 1 | 6µs |  |  | 1;
30 |  |  |  |  | __END__