Filename | /home/lbr/.plenv/versions/5.20.2/lib/perl5/5.20.2/PerlIO.pm |
Statements | Executed 11 statements in 65µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 143µs | 6.25ms | import | PerlIO::
1 | 1 | 1 | 2µs | 2µs | CORE:subst (opcode) | PerlIO::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package PerlIO; | ||||
2 | |||||
3 | 1 | 300ns | our $VERSION = '1.09'; | ||
4 | |||||
5 | # Map layer name to package that defines it | ||||
6 | 1 | 200ns | our %alias; | ||
7 | |||||
8 | sub import | ||||
9 | # spent 6.25ms (143µs+6.10) within PerlIO::import which was called:
# once (143µs+6.10ms) by main::BEGIN@53 at line 53 of opt.pl | ||||
10 | 1 | 300ns | my $class = shift; | ||
11 | 1 | 3µs | while (@_) | ||
12 | { | ||||
13 | 1 | 100ns | my $layer = shift; | ||
14 | 1 | 500ns | if (exists $alias{$layer}) | ||
15 | { | ||||
16 | $layer = $alias{$layer} | ||||
17 | } | ||||
18 | else | ||||
19 | { | ||||
20 | 1 | 1µs | $layer = "${class}::$layer"; | ||
21 | } | ||||
22 | 2 | 56µs | 1 | 2µs | eval { require $layer =~ s{::}{/}gr . '.pm' }; # spent 2µs making 1 call to PerlIO::CORE:subst |
23 | 1 | 1µs | warn $@ if $@; | ||
24 | } | ||||
25 | } | ||||
26 | |||||
27 | sub F_UTF8 () { 0x8000 } | ||||
28 | |||||
29 | 1 | 2µs | 1; | ||
30 | __END__ | ||||
# spent 2µs within PerlIO::CORE:subst which was called:
# once (2µs+0s) by PerlIO::import at line 22 |