File Coverage

blib/lib/Locale/CLDR/Locales/Ken.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::Ken - Package for language Kenyang
6              
7             =cut
8              
9             package Locale::CLDR::Locales::Ken;
10             # This file auto generated from Data\common\main\ken.xml
11             # on Fri 17 Jan 12:03:31 pm GMT
12              
13 1     1   1469417 use strict;
  1         3  
  1         47  
14 1     1   6 use warnings;
  1         9  
  1         99  
15 1     1   8 use version;
  1         2  
  1         9  
16              
17             our $VERSION = version->declare('v0.46.0');
18              
19 1     1   173 use v5.12.0;
  1         5  
20 1     1   7 use mro 'c3';
  1         3  
  1         11  
21 1     1   42 use utf8;
  1         2  
  1         10  
22 1     1   70 use feature 'unicode_strings';
  1         3  
  1         212  
23 1     1   11 use Types::Standard qw( Str Int HashRef ArrayRef CodeRef RegexpRef );
  1         2  
  1         12  
24 1     1   3133 use Moo;
  1         3  
  1         34  
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             'ken' => 'Kɛnyaŋ',
35              
36             );
37             if (@_) {
38             return $languages{$_[0]};
39             }
40             return \%languages;
41             }
42             },
43             );
44              
45             has 'characters' => (
46             is => 'ro',
47             isa => HashRef,
48             init_arg => undef,
49             default => $^V ge v5.18.0
50             ? eval <<'EOT'
51             sub {
52             no warnings 'experimental::regex_sets';
53             return {
54             auxiliary => qr{[l q v x z]},
55             index => ['A', 'bB', 'C', 'D', 'E', 'Ɛ', 'F', 'G', 'h', 'I', 'Ɨ', 'J', 'K', 'M', 'N', 'Ŋ', 'O', 'Ɔ', 'pP', 'R', 'S', 'T', 'U', 'Ʉ', 'W', 'yY'],
56             main => qr{[aáàǎ b c d eéèě ɛ{ɛ́}{ɛ̀}{ɛ̌} f g {gb} {gh} h i ɨ{ɨ́}{ɨ̀}{ɨ̌} j k {kp} m n {ny} ŋ oóòǒ ɔ{ɔ́}{ɔ̀}{ɔ̌} p r s t uúùǔ ʉ{ʉ́}{ʉ̀}{ʉ̌} w y]},
57             punctuation => qr{[\- ‑ , ; \: ! ? . ‘’ “”]},
58             };
59             },
60             EOT
61             : sub {
62             return { index => ['A', 'bB', 'C', 'D', 'E', 'Ɛ', 'F', 'G', 'h', 'I', 'Ɨ', 'J', 'K', 'M', 'N', 'Ŋ', 'O', 'Ɔ', 'pP', 'R', 'S', 'T', 'U', 'Ʉ', 'W', 'yY'], };
63             },
64 1     1   240 );
  1         3  
  1         1286  
65              
66              
67 1     1   1199 no Moo;
  1         3  
  1         6  
68              
69             1;
70              
71             # vim: tabstop=4