← Index
NYTProf Performance Profile   « block view • line view • sub view »
For reply.pl
  Run on Thu Oct 21 22:40:13 2010
Reported on Thu Oct 21 22:44:43 2010

Filename/home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/5.13.5/locale.pm
StatementsExecuted 5 statements in 19µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
2218µs8µslocale::::importlocale::import
0000s0slocale::::unimportlocale::unimport
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package locale;
2
312µsour $VERSION = '1.00';
4
5=head1 NAME
6
7locale - 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
20This pragma tells the compiler to enable (or disable) the use of POSIX
21locales for built-in operations (LC_CTYPE for regular expressions, and
22LC_COLLATE for string comparison). Each "use locale" or "no locale"
23affects statements to the end of the enclosing BLOCK.
24
25See L<perllocale> for more detailed information on how Perl supports
26locales.
27
28=cut
29
3011µ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
sub import {
33213µs $^H |= $locale::hint_bits;
34}
35
36sub unimport {
37 $^H &= ~$locale::hint_bits;
38}
39
4013µs1;