| Filename | /2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/5.12.3/locale.pm |
| Statements | Executed 6 statements in 18µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 2 | 2 | 1 | 4µs | 4µs | locale::import |
| 1 | 1 | 1 | 3µs | 3µs | locale::unimport |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package locale; | ||||
| 2 | |||||
| 3 | 1 | 400ns | 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 | 200ns | $locale::hint_bits = 0x4; | ||
| 31 | |||||
| 32 | # spent 4µs within locale::import which was called 2 times, avg 2µs/call:
# once (3µs+0s) by DBD::SQLite::BEGIN@34 at line 34 of DBD/SQLite.pm
# once (2µs+0s) by DBD::SQLite::dr::BEGIN@178 at line 178 of DBD/SQLite.pm | ||||
| 33 | 2 | 10µs | $^H |= $locale::hint_bits; | ||
| 34 | } | ||||
| 35 | |||||
| 36 | # spent 3µs within locale::unimport which was called:
# once (3µs+0s) by DBIx::Class::Schema::BEGIN@174 at line 174 of DBIx/Class/Schema.pm | ||||
| 37 | 1 | 6µs | $^H &= ~$locale::hint_bits; | ||
| 38 | } | ||||
| 39 | |||||
| 40 | 1 | 3µs | 1; |