| Filename | /usr/lib/x86_64-linux-gnu/perl-base/bytes.pm |
| Statements | Executed 9 statements in 128µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 7µs | 9µs | bytes::BEGIN@3 |
| 1 | 1 | 1 | 4µs | 21µs | bytes::BEGIN@4 |
| 2 | 2 | 2 | 3µs | 3µs | bytes::import |
| 0 | 0 | 0 | 0s | 0s | bytes::AUTOLOAD |
| 0 | 0 | 0 | 0s | 0s | bytes::unimport |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package bytes; | ||||
| 2 | |||||
| 3 | 2 | 18µs | 2 | 11µs | # spent 9µs (7+2) within bytes::BEGIN@3 which was called:
# once (7µs+2µs) by IPC::Run::BEGIN@2 at line 3 # spent 9µs making 1 call to bytes::BEGIN@3
# spent 2µs making 1 call to strict::import |
| 4 | 2 | 102µs | 2 | 38µs | # spent 21µs (4+17) within bytes::BEGIN@4 which was called:
# once (4µs+17µs) by IPC::Run::BEGIN@2 at line 4 # spent 21µs making 1 call to bytes::BEGIN@4
# spent 17µs making 1 call to warnings::import |
| 5 | |||||
| 6 | 1 | 200ns | our $VERSION = '1.08'; | ||
| 7 | |||||
| 8 | 1 | 100ns | $bytes::hint_bits = 0x00000008; | ||
| 9 | |||||
| 10 | # spent 3µs within bytes::import which was called 2 times, avg 2µs/call:
# once (2µs+0s) by Encode::utf8::BEGIN@229 at line 229 of Encode.pm
# once (1µs+0s) by IPC::Run::BEGIN@2 at line 2 of IPC/Run.pm | ||||
| 11 | 2 | 6µs | $^H |= $bytes::hint_bits; | ||
| 12 | } | ||||
| 13 | |||||
| 14 | sub unimport { | ||||
| 15 | $^H &= ~$bytes::hint_bits; | ||||
| 16 | } | ||||
| 17 | |||||
| 18 | our $AUTOLOAD; | ||||
| 19 | sub AUTOLOAD { | ||||
| 20 | require "bytes_heavy.pl"; | ||||
| 21 | goto &$AUTOLOAD if defined &$AUTOLOAD; | ||||
| 22 | require Carp; | ||||
| 23 | Carp::croak("Undefined subroutine $AUTOLOAD called"); | ||||
| 24 | } | ||||
| 25 | |||||
| 26 | sub length (_); | ||||
| 27 | sub chr (_); | ||||
| 28 | sub ord (_); | ||||
| 29 | sub substr ($$;$$); | ||||
| 30 | sub index ($$;$); | ||||
| 31 | sub rindex ($$;$); | ||||
| 32 | |||||
| 33 | 1 | 2µs | 1; | ||
| 34 | __END__ |