File | /usr/share/perl/5.10/utf8.pm |
Statements Executed | 5 |
Total Time | 1.02e-05 seconds |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 12µs | 12µs | import | utf8::
0 | 0 | 0 | 0s | 0s | AUTOLOAD | utf8::
0 | 0 | 0 | 0s | 0s | unimport | utf8::
Line | Stmts. | Exclusive Time | Avg. | Code |
---|---|---|---|---|
1 | package utf8; | |||
2 | ||||
3 | 1 | 700ns | 700ns | $utf8::hint_bits = 0x00800000; |
4 | ||||
5 | 1 | 600ns | 600ns | our $VERSION = '1.07'; |
6 | ||||
7 | # spent 12µs within utf8::import which was called
# once (12µs+0s) by XML::Simple::BEGIN or XML::Simple::numeric_escape at line 1687 of /usr/share/perl5/XML/Simple.pm | |||
8 | 1 | 2µs | 2µs | $^H |= $utf8::hint_bits; |
9 | 1 | 2µs | 2µs | $enc{caller()} = $_[1] if $_[1]; |
10 | } | |||
11 | ||||
12 | sub unimport { | |||
13 | $^H &= ~$utf8::hint_bits; | |||
14 | } | |||
15 | ||||
16 | sub AUTOLOAD { | |||
17 | require "utf8_heavy.pl"; | |||
18 | goto &$AUTOLOAD if defined &$AUTOLOAD; | |||
19 | require Carp; | |||
20 | Carp::croak("Undefined subroutine $AUTOLOAD called"); | |||
21 | } | |||
22 | ||||
23 | 1 | 5µs | 5µs | 1; |
24 | __END__ | |||
25 |