File Coverage

blib/lib/Locale/CLDR/Locales/Quc.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::Quc - Package for language Kʼicheʼ
6              
7             =cut
8              
9             package Locale::CLDR::Locales::Quc;
10             # This file auto generated from Data\common\main\quc.xml
11             # on Fri 17 Jan 12:03:31 pm GMT
12              
13 1     1   1726538 use strict;
  1         3  
  1         34  
14 1     1   4 use warnings;
  1         1  
  1         56  
15 1     1   4 use version;
  1         2  
  1         7  
16              
17             our $VERSION = version->declare('v0.46.0');
18              
19 1     1   99 use v5.12.0;
  1         3  
20 1     1   5 use mro 'c3';
  1         1  
  1         8  
21 1     1   25 use utf8;
  1         1  
  1         9  
22 1     1   74 use feature 'unicode_strings';
  1         2  
  1         148  
23 1     1   4 use Types::Standard qw( Str Int HashRef ArrayRef CodeRef RegexpRef );
  1         4  
  1         13  
24 1     1   2061 use Moo;
  1         2  
  1         17  
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             'quc' => 'Kʼicheʼ',
35              
36             );
37             if (@_) {
38             return $languages{$_[0]};
39             }
40             return \%languages;
41             }
42             },
43             );
44              
45             has 'display_name_region' => (
46             is => 'ro',
47             isa => HashRef[Str],
48             init_arg => undef,
49             default => sub {
50             {
51             'MK' => 'Macedonia del Norte',
52              
53             }
54             },
55             );
56              
57             has 'characters' => (
58             is => 'ro',
59             isa => HashRef,
60             init_arg => undef,
61             default => $^V ge v5.18.0
62             ? eval <<'EOT'
63             sub {
64             no warnings 'experimental::regex_sets';
65             return {
66             auxiliary => qr{[c d f g h ñ z]},
67             index => ['AÄ', '{Bʼ}', '{CH}', '{CHʼ}', 'E', 'I', 'J', 'K', '{Kʼ}', 'L', 'M', 'N', 'O', 'P', 'Q', '{Qʼ}', 'R', 'S', 'T', '{TZ}', '{TZʼ}', '{Tʼ}', 'U', 'V', 'W', 'X', 'Y'],
68             main => qr{[aä {aʼ} {bʼ} {ch} {chʼ} e {eʼ} i {iʼ} j k {kʼ} l m n o p q {qʼ} r s t {tz} {tzʼ} {tʼ} u {uʼ} v w x y]},
69             };
70             },
71             EOT
72             : sub {
73             return { index => ['AÄ', '{Bʼ}', '{CH}', '{CHʼ}', 'E', 'I', 'J', 'K', '{Kʼ}', 'L', 'M', 'N', 'O', 'P', 'Q', '{Qʼ}', 'R', 'S', 'T', '{TZ}', '{TZʼ}', '{Tʼ}', 'U', 'V', 'W', 'X', 'Y'], };
74             },
75 1     1   161 );
  1         1  
  1         207  
76              
77              
78             has 'currencies' => (
79             is => 'ro',
80             isa => HashRef,
81             init_arg => undef,
82             default => sub { {
83             'GTQ' => {
84             symbol => 'Q',
85             },
86             } },
87             );
88              
89              
90 1     1   915 no Moo;
  1         2  
  1         4  
91              
92             1;
93              
94             # vim: tabstop=4