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 | BEGIN@3 | utf8::
3 | 3 | 1 | 4µs | 4µs | unimport | utf8::
5 | 2 | 2 | 3µs | 3µs | encode (xsub) | utf8::
1 | 1 | 1 | 3µs | 18µs | BEGIN@4 | utf8::
1 | 1 | 1 | 2µs | 2µs | import | utf8::
0 | 0 | 0 | 0s | 0s | AUTOLOAD | utf8::
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 |