Filename | /home/s1/perl5/perlbrew/perls/perl-5.22.1/lib/site_perl/5.22.1/DateTime/Locale/Util.pm |
Statements | Executed 9 statements in 373µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 28µs | 31µs | BEGIN@3 | DateTime::Locale::Util::
1 | 1 | 1 | 11µs | 23µs | BEGIN@6 | DateTime::Locale::Util::
1 | 1 | 1 | 9µs | 15µs | BEGIN@4 | DateTime::Locale::Util::
0 | 0 | 0 | 0s | 0s | _tc | DateTime::Locale::Util::
0 | 0 | 0 | 0s | 0s | parse_locale_code | DateTime::Locale::Util::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package DateTime::Locale::Util; | ||||
2 | |||||
3 | 2 | 36µs | 2 | 35µs | # spent 31µs (28+4) within DateTime::Locale::Util::BEGIN@3 which was called:
# once (28µs+4µs) by DateTime::Locale::FromData::BEGIN@6 at line 3 # spent 31µs making 1 call to DateTime::Locale::Util::BEGIN@3
# spent 4µs making 1 call to strict::import |
4 | 2 | 32µs | 2 | 22µs | # spent 15µs (9+7) within DateTime::Locale::Util::BEGIN@4 which was called:
# once (9µs+7µs) by DateTime::Locale::FromData::BEGIN@6 at line 4 # spent 15µs making 1 call to DateTime::Locale::Util::BEGIN@4
# spent 6µs making 1 call to warnings::import |
5 | |||||
6 | 2 | 299µs | 2 | 35µs | # spent 23µs (11+12) within DateTime::Locale::Util::BEGIN@6 which was called:
# once (11µs+12µs) by DateTime::Locale::FromData::BEGIN@6 at line 6 # spent 23µs making 1 call to DateTime::Locale::Util::BEGIN@6
# spent 12µs making 1 call to Exporter::import |
7 | |||||
8 | 1 | 600ns | our $VERSION = '1.03'; | ||
9 | |||||
10 | 1 | 1µs | our @EXPORT_OK = 'parse_locale_code'; | ||
11 | |||||
12 | sub parse_locale_code { | ||||
13 | my @pieces = split /-/, $_[0]; | ||||
14 | |||||
15 | return unless @pieces; | ||||
16 | |||||
17 | my %codes = ( language => lc shift @pieces ); | ||||
18 | if ( @pieces == 1 ) { | ||||
19 | if ( length $pieces[0] == 2 || $pieces[0] =~ /^\d\d\d$/ ) { | ||||
20 | $codes{territory} = uc shift @pieces; | ||||
21 | } | ||||
22 | } | ||||
23 | elsif ( @pieces == 3 ) { | ||||
24 | $codes{script} = _tc( shift @pieces ); | ||||
25 | $codes{territory} = uc shift @pieces; | ||||
26 | $codes{variant} = uc shift @pieces; | ||||
27 | } | ||||
28 | elsif ( @pieces == 2 ) { | ||||
29 | |||||
30 | # I don't think it's possible to have a script + variant with also | ||||
31 | # having a territory. | ||||
32 | if ( length $pieces[1] == 2 || $pieces[1] =~ /^\d\d\d$/ ) { | ||||
33 | $codes{script} = _tc( shift @pieces ); | ||||
34 | $codes{territory} = uc shift @pieces; | ||||
35 | } | ||||
36 | else { | ||||
37 | $codes{territory} = uc shift @pieces; | ||||
38 | $codes{variant} = uc shift @pieces; | ||||
39 | } | ||||
40 | } | ||||
41 | |||||
42 | return %codes; | ||||
43 | } | ||||
44 | |||||
45 | sub _tc { | ||||
46 | return ucfirst lc $_[0]; | ||||
47 | } | ||||
48 | |||||
49 | 1 | 5µs | 1; | ||
50 | |||||
51 | # ABSTRACT: Utility code for DateTime::Locale | ||||
52 | |||||
53 | __END__ |