— |
our $VERSION = version->declare('v0.34.2');
use if $^V ge v5.12.0, feature => 'unicode_strings';
extends('Locale::CLDR::Locales::Ar::Any');
has 'characters' => (
is => 'ro',
isa => HashRef,
init_arg => undef,
default => $^V ge v5.18.0
? eval <<'EOT'
sub {
no warnings 'experimental::regex_sets';
return {
auxiliary => qr{[ پ چ ژ ڜ ڢ ڤ ڥ ٯ ڧ ڨ ک ڭ گ ݣ ی]},
numbers => qr{[ \- , . % ‰ + 0 1 2 3 4 5 6 7 8 9]},
};
},
EOT
: sub {
return {};
},
);
has 'default_numbering_system' => (
is => 'ro',
isa => Str,
init_arg => undef,
default => 'latn',
);
has 'number_symbols' => (
is => 'ro',
isa => HashRef,
init_arg => undef,
default => sub { {
'latn' => {
'decimal' => q(,),
'group' => q(.),
},
} }
);
has 'calendar_months' => (
is => 'ro',
isa => HashRef,
init_arg => undef,
default => sub { {
'gregorian' => {
'format' => {
abbreviated => {
nonleap => [
'يناير',
'فبراير',
'مارس',
'أبريل',
'ماي',
'يونيو',
'يوليوز',
'غشت',
'شتنبر',
'أكتوبر',
'نونبر',
'دجنبر'
],
leap => [
],
},
narrow => {
nonleap => [
'ي',
'ف',
'م',
'أ',
'م',
'ن',
'ل',
'غ',
'ش',
'ك',
'ب',
'د'
],
leap => [
],
},
wide => {
nonleap => [
'يناير',
'فبراير',
'مارس',
'أبريل',
'ماي',
'يونيو',
'يوليوز',
'غشت',
'شتنبر',
'أكتوبر',
'نونبر',
'دجنبر'
],
leap => [
],
},
},
'stand-alone' => {
abbreviated => {
nonleap => [
'يناير',
'فبراير',
'مارس',
'أبريل',
'ماي',
'يونيو',
'يوليوز',
'غشت',
'شتنبر',
'أكتوبر',
'نونبر',
'دجنبر'
],
leap => [
],
},
narrow => {
nonleap => [
'ي',
'ف',
'م',
'أ',
'م',
'ن',
'ل',
'غ',
'ش',
'ك',
'ب',
'د'
],
leap => [
],
},
wide => {
nonleap => [
'يناير',
'فبراير',
'مارس',
'أبريل',
'ماي',
'يونيو',
'يوليوز',
'غشت',
'شتنبر',
'أكتوبر',
'نونبر',
'دجنبر'
],
leap => [
],
},
},
},
} },
);
has 'day_period_data' => (
is => 'ro',
isa => CodeRef,
init_arg => undef,
default => sub { sub {
my ($self, $type, $time, $day_period_type) = @_;
$day_period_type //= 'default';
SWITCH:
for ($type) {
if ($_ eq 'gregorian') {
if($day_period_type eq 'default') {
return 'afternoon1' if $time >= 1200
&& $time < 1300;
return 'afternoon2' if $time >= 1300
&& $time < 1800;
return 'evening1' if $time >= 1800
&& $time < 2400;
return 'morning1' if $time >= 300
&& $time < 600;
return 'morning2' if $time >= 600
&& $time < 1200;
return 'night1' if $time >= 0
&& $time < 100;
return 'night2' if $time >= 100
&& $time < 300;
}
if($day_period_type eq 'selection') {
return 'afternoon1' if $time >= 1200
&& $time < 1300;
return 'afternoon2' if $time >= 1300
&& $time < 1800;
return 'evening1' if $time >= 1800
&& $time < 2400;
return 'morning1' if $time >= 300
&& $time < 600;
return 'morning2' if $time >= 600
&& $time < 1200;
return 'night1' if $time >= 0
&& $time < 100;
return 'night2' if $time >= 100
&& $time < 300;
}
last SWITCH;
}
}
} },
);
around day_period_data => sub {
my ($orig, $self) = @_;
return $self->$orig;
};
has 'eras' => (
is => 'ro',
isa => HashRef,
init_arg => undef,
default => sub { {
'gregorian' => {
},
} },
);
has 'date_formats' => (
is => 'ro',
isa => HashRef,
init_arg => undef,
default => sub { {
'gregorian' => {
},
} },
);
has 'time_formats' => (
is => 'ro',
isa => HashRef,
init_arg => undef,
default => sub { {
'gregorian' => {
'full' => q{HH:mm:ss zzzz},
'long' => q{HH:mm:ss z},
'medium' => q{HH:mm:ss},
'short' => q{HH:mm},
},
} },
);
has 'datetime_formats' => (
is => 'ro',
isa => HashRef,
init_arg => undef,
default => sub { {
'gregorian' => {
},
} },
);
has 'datetime_formats_available_formats' => (
is => 'ro',
isa => HashRef,
init_arg => undef,
default => sub { {
} },
);
has 'datetime_formats_append_item' => (
is => 'ro',
isa => HashRef,
init_arg => undef,
default => sub { {
} },
);
has 'datetime_formats_interval' => (
is => 'ro',
isa => HashRef,
init_arg => undef,
default => sub { {
} },
);
no Moo;
1;
|