File Coverage

blib/lib/Locale/CLDR/Locales/En/Any/Io.pm
Criterion Covered Total %
statement 23 23 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod n/a
total 31 31 100.0


line stmt bran cond sub pod time code
1             =head1
2              
3             Locale::CLDR::Locales::En::Any::Io - Package for language English
4              
5             =cut
6              
7             package Locale::CLDR::Locales::En::Any::Io;
8             # This file auto generated from Data\common\main\en_IO.xml
9             # on Sun 24 Apr 8:24:43 am GMT
10              
11 1     1   719 use version;
  1         1  
  1         5  
12              
13             our $VERSION = version->declare('v0.29.0');
14              
15 1     1   77 use v5.10.1;
  1         2  
16 1     1   3 use mro 'c3';
  1         2  
  1         4  
17 1     1   29 use utf8;
  1         1  
  1         5  
18 1     1   25 use if $^V ge v5.12.0, feature => 'unicode_strings';
  1         2  
  1         14  
19              
20 1     1   77 use Types::Standard qw( Str Int HashRef ArrayRef CodeRef RegexpRef );
  1         4  
  1         6  
21 1     1   622 use Moo;
  1         1  
  1         4  
22              
23             extends('Locale::CLDR::Locales::En::Any::001');
24             has 'day_period_data' => (
25             is => 'ro',
26             isa => CodeRef,
27             init_arg => undef,
28             default => sub { sub {
29             # Time in hhmm format
30             my ($self, $type, $time, $day_period_type) = @_;
31             $day_period_type //= 'default';
32             SWITCH:
33             for ($type) {
34             if ($_ eq 'gregorian') {
35             if($day_period_type eq 'default') {
36             return 'noon' if $time == 1200;
37             return 'midnight' if $time == 0;
38             return 'evening1' if $time >= 1800
39             && $time < 2100;
40             return 'night1' if $time >= 2100;
41             return 'night1' if $time < 600;
42             return 'afternoon1' if $time >= 1200
43             && $time < 1800;
44             return 'morning1' if $time >= 600
45             && $time < 1200;
46             }
47             if($day_period_type eq 'selection') {
48             return 'afternoon1' if $time >= 1200
49             && $time < 1800;
50             return 'morning1' if $time >= 600
51             && $time < 1200;
52             return 'night1' if $time >= 2100;
53             return 'night1' if $time < 600;
54             return 'evening1' if $time >= 1800
55             && $time < 2100;
56             }
57             last SWITCH;
58             }
59             }
60             } },
61             );
62              
63             around day_period_data => sub {
64             my ($orig, $self) = @_;
65             return $self->$orig;
66             };
67              
68             has 'eras' => (
69             is => 'ro',
70             isa => HashRef,
71             init_arg => undef,
72             default => sub { {
73             'gregorian' => {
74             },
75             } },
76             );
77              
78             has 'date_formats' => (
79             is => 'ro',
80             isa => HashRef,
81             init_arg => undef,
82             default => sub { {
83             'gregorian' => {
84             },
85             } },
86             );
87              
88             has 'time_formats' => (
89             is => 'ro',
90             isa => HashRef,
91             init_arg => undef,
92             default => sub { {
93             'gregorian' => {
94             'full' => q{HH:mm:ss zzzz},
95             'long' => q{HH:mm:ss z},
96             'medium' => q{HH:mm:ss},
97             'short' => q{HH:mm},
98             },
99             } },
100             );
101              
102             has 'datetime_formats' => (
103             is => 'ro',
104             isa => HashRef,
105             init_arg => undef,
106             default => sub { {
107             'gregorian' => {
108             },
109             } },
110             );
111              
112             has 'datetime_formats_available_formats' => (
113             is => 'ro',
114             isa => HashRef,
115             init_arg => undef,
116             default => sub { {
117             } },
118             );
119              
120             has 'datetime_formats_append_item' => (
121             is => 'ro',
122             isa => HashRef,
123             init_arg => undef,
124             default => sub { {
125             } },
126             );
127              
128             has 'datetime_formats_interval' => (
129             is => 'ro',
130             isa => HashRef,
131             init_arg => undef,
132             default => sub { {
133             } },
134             );
135              
136 1     1   2058 no Moo;
  1         2  
  1         5  
137              
138             1;
139              
140             # vim: tabstop=4