line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
# Copyrights 2011-2015 by [Mark Overmeer]. |
2
|
|
|
|
|
|
|
# For other contributors see ChangeLog. |
3
|
|
|
|
|
|
|
# See the manual pages for details on the licensing terms. |
4
|
|
|
|
|
|
|
# Pod stripped from pm file by OODoc 2.01. |
5
|
4
|
|
|
4
|
|
16927
|
use warnings; |
|
4
|
|
|
|
|
5
|
|
|
4
|
|
|
|
|
611
|
|
6
|
4
|
|
|
4
|
|
12
|
use strict; |
|
4
|
|
|
|
|
8
|
|
|
4
|
|
|
|
|
164
|
|
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
package POSIX::1003::Locale; |
9
|
4
|
|
|
4
|
|
12
|
use vars '$VERSION'; |
|
4
|
|
|
|
|
4
|
|
|
4
|
|
|
|
|
166
|
|
10
|
|
|
|
|
|
|
$VERSION = '0.99_06'; |
11
|
|
|
|
|
|
|
|
12
|
4
|
|
|
4
|
|
14
|
use base 'POSIX::1003::Module'; |
|
4
|
|
|
|
|
4
|
|
|
4
|
|
|
|
|
637
|
|
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
# Blocks from resp. limits.h and local.h |
15
|
|
|
|
|
|
|
my @constants; |
16
|
|
|
|
|
|
|
my @functions = qw/localeconv setlocale/; |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
our %EXPORT_TAGS = |
19
|
|
|
|
|
|
|
( constants => \@constants |
20
|
|
|
|
|
|
|
, functions => \@functions |
21
|
|
|
|
|
|
|
, tables => [ '%locale' ] |
22
|
|
|
|
|
|
|
); |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
my $locale; |
25
|
|
|
|
|
|
|
our %locale; |
26
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
BEGIN { |
28
|
4
|
|
|
4
|
|
61
|
$locale = locale_table; |
29
|
4
|
|
|
|
|
550
|
push @constants, keys %$locale; |
30
|
4
|
|
|
|
|
22
|
tie %locale, 'POSIX::1003::ReadOnlyTable', $locale; |
31
|
|
|
|
|
|
|
} |
32
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
|
34
|
|
|
|
|
|
|
|
35
|
|
|
|
|
|
|
|
36
|
|
|
|
|
|
|
sub _create_constant($) |
37
|
17
|
|
|
17
|
|
21
|
{ my ($class, $name) = @_; |
38
|
17
|
|
|
|
|
28
|
my $val = $locale->{$name}; |
39
|
17
|
|
|
0
|
|
253
|
sub () {$val}; |
|
0
|
|
|
|
|
|
|
40
|
|
|
|
|
|
|
} |
41
|
|
|
|
|
|
|
|
42
|
|
|
|
|
|
|
|
43
|
|
|
|
|
|
|
1; |