Profile of /usr/lib/perl5/5.10.1/locale.pm

Subroutines — ordered by exclusive time
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	10µs	10µs	locale::::importlocale::import
0	0	0	0s	0s	locale::::unimportlocale::unimport

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Code
1			package locale;
2
3	1	3µ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	2µs	$locale::hint_bits = 0x4;
31
32			# spent 10µs within locale::import which was called # once (10µs+0s) by Template::Filters::BEGIN@24 at line 24 of Template/Filters.pm sub import {
33	1	22µs	$^H \|= $locale::hint_bits;
34			}
35
36			sub unimport {
37			$^H &= ~$locale::hint_bits;
38			}
39
40	1	10µs	1;