| Filename | /usr/share/perl/5.36/PerlIO.pm |
| Statements | Executed 10 statements in 100µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 931245 | 2 | 1 | 1.23s | 1.23s | PerlIO::get_layers (xsub) |
| 1 | 1 | 1 | 166µs | 309µs | PerlIO::import |
| 1 | 1 | 1 | 2µs | 2µs | PerlIO::CORE:subst (opcode) |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package PerlIO; | ||||
| 2 | |||||
| 3 | 1 | 200ns | our $VERSION = '1.12'; | ||
| 4 | |||||
| 5 | # Map layer name to package that defines it | ||||
| 6 | our %alias; | ||||
| 7 | |||||
| 8 | sub import | ||||
| 9 | # spent 309µs (166+142) within PerlIO::import which was called:
# once (166µs+142µs) by Text::CSV_XS::BEGIN@1240 at line 1240 of Text/CSV_XS.pm | ||||
| 10 | 1 | 300ns | my $class = shift; | ||
| 11 | 1 | 2µs | while (@_) | ||
| 12 | { | ||||
| 13 | 1 | 200ns | my $layer = shift; | ||
| 14 | 1 | 500ns | if (exists $alias{$layer}) | ||
| 15 | { | ||||
| 16 | $layer = $alias{$layer} | ||||
| 17 | } | ||||
| 18 | else | ||||
| 19 | { | ||||
| 20 | 1 | 700ns | $layer = "${class}::$layer"; | ||
| 21 | } | ||||
| 22 | 2 | 93µs | 1 | 2µs | eval { require $layer =~ s{::}{/}gr . '.pm' }; # spent 2µs making 1 call to PerlIO::CORE:subst |
| 23 | 1 | 600ns | 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 | |||||
# spent 1.23s within PerlIO::get_layers which was called 931245 times, avg 1µs/call:
# 532140 times (762ms+0s) by Capture::Tiny::_relayer at line 90 of Capture/Tiny.pm, avg 1µs/call
# 399105 times (471ms+0s) by Capture::Tiny::_capture_tee at line 320 of Capture/Tiny.pm, avg 1µs/call |