JGNI / Locale-CLDR-v0.26.2 / lib / Locale / CLDR / CalendarPreferences.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109

              
package Locale::CLDR::CalendarPreferences;
# This file auto generated from Data.xml
#       on Fri 28 Nov 11:15:26 pm GMT
# XML file generated 2014-09-11 12:17:53 -0500 (Thu, 11 Sep 2014)
use version;
our $VERSION = version->declare('v0.26.2');
use v5.10;
use mro 'c3';
use utf8;
use if $^V ge v5.12.0, feature => 'unicode_strings';
use Moose::Role;
has 'calendar_preferences' => (
        is                      => 'ro',
        isa                     => 'HashRef',
        init_arg        => undef,
        default => sub { {
                '001' => ['gregorian'],
                'DJ' => ['gregorian','islamic','islamic-civil','islamic-tbla'],
                'DZ' => ['gregorian','islamic','islamic-civil','islamic-tbla'],
                'EH' => ['gregorian','islamic','islamic-civil','islamic-tbla'],
                'ER' => ['gregorian','islamic','islamic-civil','islamic-tbla'],
                'IQ' => ['gregorian','islamic','islamic-civil','islamic-tbla'],
                'JO' => ['gregorian','islamic','islamic-civil','islamic-tbla'],
                'KM' => ['gregorian','islamic','islamic-civil','islamic-tbla'],
                'LB' => ['gregorian','islamic','islamic-civil','islamic-tbla'],
                'LY' => ['gregorian','islamic','islamic-civil','islamic-tbla'],
                'MA' => ['gregorian','islamic','islamic-civil','islamic-tbla'],
                'MR' => ['gregorian','islamic','islamic-civil','islamic-tbla'],
                'OM' => ['gregorian','islamic','islamic-civil','islamic-tbla'],
                'PS' => ['gregorian','islamic','islamic-civil','islamic-tbla'],
                'SD' => ['gregorian','islamic','islamic-civil','islamic-tbla'],
                'SY' => ['gregorian','islamic','islamic-civil','islamic-tbla'],
                'TD' => ['gregorian','islamic','islamic-civil','islamic-tbla'],
                'TN' => ['gregorian','islamic','islamic-civil','islamic-tbla'],
                'YE' => ['gregorian','islamic','islamic-civil','islamic-tbla'],
                'AE' => ['gregorian','islamic-umalqura','islamic','islamic-civil','islamic-tbla'],
                'BH' => ['gregorian','islamic-umalqura','islamic','islamic-civil','islamic-tbla'],
                'KW' => ['gregorian','islamic-umalqura','islamic','islamic-civil','islamic-tbla'],
                'QA' => ['gregorian','islamic-umalqura','islamic','islamic-civil','islamic-tbla'],
                'AF' => ['persian','gregorian','islamic','islamic-civil','islamic-tbla'],
                'IR' => ['persian','gregorian','islamic','islamic-civil','islamic-tbla'],
                'CN' => ['gregorian','chinese'],
                'CX' => ['gregorian','chinese'],
                'HK' => ['gregorian','chinese'],
                'MO' => ['gregorian','chinese'],
                'SG' => ['gregorian','chinese'],
                'EG' => ['gregorian','coptic','islamic','islamic-civil','islamic-tbla'],
                'ET' => ['gregorian','ethiopic'],
                'IL' => ['gregorian','hebrew','islamic','islamic-civil','islamic-tbla'],
                'IN' => ['gregorian','indian'],
                'JP' => ['gregorian','japanese'],
                'KR' => ['gregorian','dangi'],
                'SA' => ['gregorian','islamic-umalqura','islamic','islamic-rgsa'],
                'TH' => ['buddhist','gregorian'],
                'TW' => ['gregorian','roc','chinese'],
        }},
);
has '_default_calendar' => (
        is                      => 'ro',
        isa                     => 'HashRef',
        init_arg        => undef,
        default => sub { { } },
        traits  => ['Hash'],
        handles => {
                _set_default_ca  => 'set',
                _get_default_ca  => 'get',
                _test_default_ca => 'exists',
        },
);
sub default_calendar {
        my ($self, $territory) = @_;
        $territory //= ( $self->territory_id() || $self->likely_subtag->territory_id );
        if ($self->_test_default_ca($territory)) {
                return $self->_get_default_ca($territory);
        }
        my $calendar_preferences = $self->calendar_preferences();
        my $default;
        my $current_territory = $territory;
        while (! $default) {
                $default = $calendar_preferences->{$current_territory};
                if ($default) {
                        $default = $default->[0];
                }
                else {
                        $current_territory = $self->territory_contained_by()->{$current_territory}
                }
        }
        $self->_set_default_ca($territory => $default);
        return $default;
}
no Moose::Role;
1;
# vim: tabstop=4