Filename | /home/ss5/perl5/perlbrew/perls/perl-5.14.1/lib/5.14.1/PerlIO.pm |
Statements | Executed 3 statements in 18µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
2 | 1 | 1 | 34µs | 34µs | get_layers (xsub) | PerlIO::
0 | 0 | 0 | 0s | 0s | import | PerlIO::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package PerlIO; | ||||
2 | |||||
3 | 1 | 3µs | our $VERSION = '1.07'; | ||
4 | |||||
5 | # Map layer name to package that defines it | ||||
6 | 1 | 1µs | our %alias; | ||
7 | |||||
8 | sub 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 | |||||
27 | sub F_UTF8 () { 0x8000 } | ||||
28 | |||||
29 | 1 | 14µs | 1; | ||
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 |