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
|
|
13977
|
use warnings; |
|
4
|
|
|
|
|
5
|
|
|
4
|
|
|
|
|
640
|
|
6
|
4
|
|
|
4
|
|
15
|
use strict; |
|
4
|
|
|
|
|
4
|
|
|
4
|
|
|
|
|
104
|
|
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
package POSIX::1003::Locale; |
9
|
4
|
|
|
4
|
|
12
|
use vars '$VERSION'; |
|
4
|
|
|
|
|
3
|
|
|
4
|
|
|
|
|
135
|
|
10
|
|
|
|
|
|
|
$VERSION = '0.99_07'; |
11
|
|
|
|
|
|
|
|
12
|
4
|
|
|
4
|
|
11
|
use base 'POSIX::1003::Module'; |
|
4
|
|
|
|
|
4
|
|
|
4
|
|
|
|
|
569
|
|
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
|
|
594
|
$locale = locale_table; |
29
|
4
|
|
|
|
|
24
|
push @constants, keys %$locale; |
30
|
4
|
|
|
|
|
18
|
tie %locale, 'POSIX::1003::ReadOnlyTable', $locale; |
31
|
|
|
|
|
|
|
} |
32
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
|
34
|
|
|
|
|
|
|
sub _create_constant($) |
35
|
17
|
|
|
17
|
|
16
|
{ my ($class, $name) = @_; |
36
|
17
|
|
|
|
|
24
|
my $val = $locale->{$name}; |
37
|
17
|
|
|
0
|
|
81
|
sub () {$val}; |
|
0
|
|
|
|
|
|
|
38
|
|
|
|
|
|
|
} |
39
|
|
|
|
|
|
|
|
40
|
|
|
|
|
|
|
|
41
|
|
|
|
|
|
|
1; |