Filename | /home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/5.13.5/locale.pm |
Statements | Executed 5 statements in 19µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
2 | 2 | 1 | 8µs | 8µs | import | locale::
0 | 0 | 0 | 0s | 0s | unimport | locale::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package locale; | ||||
2 | |||||
3 | 1 | 1µs | our $VERSION = '1.00'; | ||
4 | |||||
5 | =head1 NAME | ||||
6 | |||||
7 | locale - Perl pragma to use and avoid POSIX locales for built-in operations | ||||
8 | |||||
9 | =head1 SYNOPSIS | ||||
10 | |||||
11 | @x = sort @y; # ASCII sorting order | ||||
12 | { | ||||
13 | use locale; | ||||
14 | @x = sort @y; # Locale-defined sorting order | ||||
15 | } | ||||
16 | @x = sort @y; # ASCII sorting order again | ||||
17 | |||||
18 | =head1 DESCRIPTION | ||||
19 | |||||
20 | This pragma tells the compiler to enable (or disable) the use of POSIX | ||||
21 | locales for built-in operations (LC_CTYPE for regular expressions, and | ||||
22 | LC_COLLATE for string comparison). Each "use locale" or "no locale" | ||||
23 | affects statements to the end of the enclosing BLOCK. | ||||
24 | |||||
25 | See L<perllocale> for more detailed information on how Perl supports | ||||
26 | locales. | ||||
27 | |||||
28 | =cut | ||||
29 | |||||
30 | 1 | 1µs | $locale::hint_bits = 0x4; | ||
31 | |||||
32 | # spent 8µs within locale::import which was called 2 times, avg 4µs/call:
# once (4µs+0s) by DBD::SQLite::BEGIN@34 at line 34 of DBD/SQLite.pm
# once (4µs+0s) by DBD::SQLite::dr::BEGIN@165 at line 165 of DBD/SQLite.pm | ||||
33 | 2 | 13µs | $^H |= $locale::hint_bits; | ||
34 | } | ||||
35 | |||||
36 | sub unimport { | ||||
37 | $^H &= ~$locale::hint_bits; | ||||
38 | } | ||||
39 | |||||
40 | 1 | 3µs | 1; |