File Coverage

blib/lib/Locale/CLDR/Locales/Cho.pm
Criterion Covered Total %
statement 32 32 100.0
branch n/a
condition n/a
subroutine 11 11 100.0
pod n/a
total 43 43 100.0


line stmt bran cond sub pod time code
1             =encoding utf8
2              
3             =head1 NAME
4              
5             Locale::CLDR::Locales::Cho - Package for language Choctaw
6              
7             =cut
8              
9             package Locale::CLDR::Locales::Cho;
10             # This file auto generated from Data\common\main\cho.xml
11             # on Fri 17 Jan 12:03:31 pm GMT
12              
13 1     1   1605977 use strict;
  1         3  
  1         49  
14 1     1   7 use warnings;
  1         9  
  1         100  
15 1     1   9 use version;
  1         2  
  1         8  
16              
17             our $VERSION = version->declare('v0.46.0');
18              
19 1     1   186 use v5.12.0;
  1         5  
20 1     1   9 use mro 'c3';
  1         2  
  1         10  
21 1     1   60 use utf8;
  1         3  
  1         8  
22 1     1   93 use feature 'unicode_strings';
  1         3  
  1         175  
23 1     1   7 use Types::Standard qw( Str Int HashRef ArrayRef CodeRef RegexpRef );
  1         30  
  1         15  
24 1     1   3264 use Moo;
  1         2  
  1         8  
25              
26             extends('Locale::CLDR::Locales::Root');
27             has 'display_name_language' => (
28             is => 'ro',
29             isa => CodeRef,
30             init_arg => undef,
31             default => sub {
32             sub {
33             my %languages = (
34             'cho' => 'Chahta',
35             'en' => 'English',
36              
37             );
38             if (@_) {
39             return $languages{$_[0]};
40             }
41             return \%languages;
42             }
43             },
44             );
45              
46             has 'display_name_script' => (
47             is => 'ro',
48             isa => CodeRef,
49             init_arg => undef,
50             default => sub {
51             sub {
52             my %scripts = (
53             'Latn' => 'Latin',
54              
55             );
56             if ( @_ ) {
57             return $scripts{$_[0]};
58             }
59             return \%scripts;
60             }
61             }
62             );
63              
64             has 'display_name_region' => (
65             is => 'ro',
66             isa => HashRef[Str],
67             init_arg => undef,
68             default => sub {
69             {
70             'US' => 'United States',
71              
72             }
73             },
74             );
75              
76             has 'display_name_code_patterns' => (
77             is => 'ro',
78             isa => HashRef[Str],
79             init_arg => undef,
80             default => sub {
81             {
82             'language' => 'Anumpa: {0}',
83              
84             }
85             },
86             );
87              
88             has 'characters' => (
89             is => 'ro',
90             isa => HashRef,
91             init_arg => undef,
92             default => $^V ge v5.18.0
93             ? eval <<'EOT'
94             sub {
95             no warnings 'experimental::regex_sets';
96             return {
97             auxiliary => qr{[cč d g j q r š x z]},
98             index => ['A{A̱}', 'B', '{CH}', 'E', 'F', 'H', '{HL}', 'I{I̱}', 'K', 'L', 'M', 'N', 'O{O̱}', 'P', 'S', '{SH}', 'T', 'U', 'V', 'Ʋ', 'W', 'Z'],
99             main => qr{[a{a̱} b {ch} e f h {hl} i{i̱} k l m n o{o̱} p s {sh} t u v ʋ w y]},
100             punctuation => qr{[\- ‐‑ – — , ; \: ! ? . … '‘’ "“” ( ) \[ \] § @ * / \& # † ‡ ′ ″]},
101             };
102             },
103             EOT
104             : sub {
105             return { index => ['A{A̱}', 'B', '{CH}', 'E', 'F', 'H', '{HL}', 'I{I̱}', 'K', 'L', 'M', 'N', 'O{O̱}', 'P', 'S', '{SH}', 'T', 'U', 'V', 'Ʋ', 'W', 'Z'], };
106             },
107 1     1   311 );
  1         3  
  1         337  
108              
109              
110 1     1   1651 no Moo;
  1         3  
  1         7  
111              
112             1;
113              
114             # vim: tabstop=4