| Filename | /home/micha/.plenv/versions/5.38.2/lib/perl5/5.38.2/utf8.pm |
| Statements | Executed 11 statements in 115µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 8µs | 9µs | utf8::BEGIN@3 |
| 3 | 3 | 1 | 4µs | 4µs | utf8::unimport |
| 5 | 2 | 2 | 3µs | 3µs | utf8::encode (xsub) |
| 1 | 1 | 1 | 3µs | 18µs | utf8::BEGIN@4 |
| 1 | 1 | 1 | 2µs | 2µs | utf8::import |
| 0 | 0 | 0 | 0s | 0s | utf8::AUTOLOAD |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package utf8; | ||||
| 2 | |||||
| 3 | 2 | 16µs | 2 | 11µs | # spent 9µs (8+1) within utf8::BEGIN@3 which was called:
# once (8µs+1µs) by XML::Twig::BEGIN@25 at line 3 # spent 9µs making 1 call to utf8::BEGIN@3
# spent 1µs making 1 call to strict::import |
| 4 | 2 | 81µs | 2 | 32µs | # spent 18µs (3+15) within utf8::BEGIN@4 which was called:
# once (3µs+15µs) by XML::Twig::BEGIN@25 at line 4 # spent 18µs making 1 call to utf8::BEGIN@4
# spent 15µs making 1 call to warnings::import |
| 5 | |||||
| 6 | 1 | 200ns | our $hint_bits = 0x00800000; | ||
| 7 | |||||
| 8 | 1 | 200ns | our $VERSION = '1.25'; | ||
| 9 | our $AUTOLOAD; | ||||
| 10 | |||||
| 11 | # spent 2µs within utf8::import which was called:
# once (2µs+0s) by XML::Twig::BEGIN@25 at line 25 of XML/Twig.pm | ||||
| 12 | 1 | 4µs | $^H |= $hint_bits; | ||
| 13 | } | ||||
| 14 | |||||
| 15 | # spent 4µs within utf8::unimport which was called 3 times, avg 2µs/call:
# once (2µs+0s) by XML::Twig::BEGIN@4636 at line 4636 of XML/Twig.pm
# once (2µs+0s) by XML::Twig::Elt::BEGIN@7919 at line 7919 of XML/Twig.pm
# once (1µs+0s) by XML::Twig::BEGIN@4649 at line 4649 of XML/Twig.pm | ||||
| 16 | 3 | 12µs | $^H &= ~$hint_bits; | ||
| 17 | } | ||||
| 18 | |||||
| 19 | sub AUTOLOAD { | ||||
| 20 | goto &$AUTOLOAD if defined &$AUTOLOAD; | ||||
| 21 | require Carp; | ||||
| 22 | Carp::croak("Undefined subroutine $AUTOLOAD called"); | ||||
| 23 | } | ||||
| 24 | |||||
| 25 | 1 | 2µs | 1; | ||
| 26 | __END__ | ||||
# spent 3µs within utf8::encode which was called 5 times, avg 600ns/call:
# 4 times (2µs+0s) by base::__ANON__[/home/micha/.plenv/versions/5.38.2/lib/perl5/5.38.2/base.pm:76] at line 74 of base.pm, avg 550ns/call
# once (800ns+0s) by JSON::BEGIN@1 at line 1288 of JSON/PP.pm |