Filename | /home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/5.13.5/x86_64-linux/PerlIO/encoding.pm |
Statements | Executed 10 statements in 676µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 3.18ms | 10.5ms | BEGIN@92 | DynaLoader::
1 | 1 | 1 | 343µs | 383µs | BEGIN@3 | PerlIO::encoding::
1 | 1 | 1 | 7µs | 7µs | BEGIN@13 | PerlIO::encoding::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
0 | 1 | 10.5ms | Profile data that couldn't be associated with a specific line: # spent 10.5ms making 1 call to DynaLoader::BEGIN@92 | ||
1 | 1 | 39µs | package PerlIO::encoding; | ||
2 | |||||
3 | 2 | 350µs | 2 | 389µs | # spent 383µs (343+41) within PerlIO::encoding::BEGIN@3 which was called:
# once (343µs+41µs) by PerlIO::import at line 3 # spent 383µs making 1 call to PerlIO::encoding::BEGIN@3
# spent 6µs making 1 call to strict::import |
4 | 1 | 2µs | our $VERSION = '0.12'; | ||
5 | 1 | 1µs | our $DEBUG = 0; | ||
6 | 1 | 1µs | $DEBUG and warn __PACKAGE__, " called by ", join(", ", caller), "\n"; | ||
7 | |||||
8 | # | ||||
9 | # Equivalent of this is done in encoding.xs - do not uncomment. | ||||
10 | # | ||||
11 | # use Encode (); | ||||
12 | |||||
13 | 2 | 49µs | 1 | 7µs | # spent 7µs within PerlIO::encoding::BEGIN@13 which was called:
# once (7µs+0s) by PerlIO::import at line 13 # spent 7µs making 1 call to PerlIO::encoding::BEGIN@13 |
14 | 1 | 208µs | 1 | 10.7ms | XSLoader::load(__PACKAGE__, $VERSION); # spent 10.7ms making 1 call to XSLoader::load |
15 | |||||
16 | 1 | 18µs | 3 | 6µs | our $fallback = # spent 2µs making 1 call to Encode::PERLQQ
# spent 2µs making 1 call to Encode::STOP_AT_PARTIAL
# spent 2µs making 1 call to Encode::WARN_ON_ERR |
17 | Encode::PERLQQ()|Encode::WARN_ON_ERR()|Encode::STOP_AT_PARTIAL(); | ||||
18 | |||||
19 | 1 | 10µs | 1; | ||
20 | __END__ | ||||
21 | |||||
- - |