File Coverage

blib/lib/Locale/CLDR/Locales/Shn.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::Shn - Package for language Shan
6              
7             =cut
8              
9             package Locale::CLDR::Locales::Shn;
10             # This file auto generated from Data\common\main\shn.xml
11             # on Fri 17 Jan 12:03:31 pm GMT
12              
13 1     1   1735959 use strict;
  1         1  
  1         28  
14 1     1   3 use warnings;
  1         5  
  1         53  
15 1     1   5 use version;
  1         1  
  1         5  
16              
17             our $VERSION = version->declare('v0.46.0');
18              
19 1     1   88 use v5.12.0;
  1         4  
20 1     1   4 use mro 'c3';
  1         1  
  1         9  
21 1     1   36 use utf8;
  1         2  
  1         8  
22 1     1   82 use feature 'unicode_strings';
  1         2  
  1         174  
23 1     1   10 use Types::Standard qw( Str Int HashRef ArrayRef CodeRef RegexpRef );
  1         2  
  1         12  
24 1     1   1896 use Moo;
  1         5  
  1         7  
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             'shn' => 'တႆး',
35              
36             );
37             if (@_) {
38             return $languages{$_[0]};
39             }
40             return \%languages;
41             }
42             },
43             );
44              
45             has 'display_name_script' => (
46             is => 'ro',
47             isa => CodeRef,
48             init_arg => undef,
49             default => sub {
50             sub {
51             my %scripts = (
52             'Mymr' => 'မျၢၼ်ႇမႃႇ',
53              
54             );
55             if ( @_ ) {
56             return $scripts{$_[0]};
57             }
58             return \%scripts;
59             }
60             }
61             );
62              
63             has 'display_name_region' => (
64             is => 'ro',
65             isa => HashRef[Str],
66             init_arg => undef,
67             default => sub {
68             {
69             'MM' => 'မျၢၼ်ႇမႃႇ (မိူင်းမၢၼ်ႈ)',
70             'TH' => 'မိူင်းထႆး',
71              
72             }
73             },
74             );
75              
76             has 'characters' => (
77             is => 'ro',
78             isa => HashRef,
79             init_arg => undef,
80             default => $^V ge v5.18.0
81             ? eval <<'EOT'
82             sub {
83             no warnings 'experimental::regex_sets';
84             return {
85             auxiliary => qr{[ꩡ ꩦ ꩧ ꩨ ꩩ ꩮ]},
86             index => ['ၵ', 'ၶ', 'ၷ', 'ꧠ', 'င', 'ၸ', 'ꩡ', 'ꧡ', 'ꧢ', 'ၺ', 'ꩦ', 'ꩧ', 'ꩨ', 'ꩩ', 'တ', 'ထ', 'ၻ', 'ၼ', 'ပ', 'ၽ', 'ၾ', 'ၿ', 'ꧤ', 'မ', 'ယ', 'ရ', 'လ', 'ဝ', 'ႀ', 'သ', 'ႁ', 'ꩮ', 'ဢ'],
87             main => qr{[​း ႞ ႟ ၵ ၶ ၷ င ၸ ၺ ꧣ တ ထ ၻ ၼ ပ ၽ ၾ ၿ ꧤ မ ယ ျ ရ ြ လ ဝ ွ ႂ ႀ သ ႁ ဢ ႃ ိ ီ ု ူ ေ ႄ ꧥ ် ႇ ႈ ႉ ႊ]},
88             numbers => qr{[႐ ႑ ႒ ႓ ႔ ႕ ႖ ႗ ႘ ႙]},
89             punctuation => qr{[၊ ။ ‘’ “”]},
90             };
91             },
92             EOT
93             : sub {
94             return { index => ['ၵ', 'ၶ', 'ၷ', 'ꧠ', 'င', 'ၸ', 'ꩡ', 'ꧡ', 'ꧢ', 'ၺ', 'ꩦ', 'ꩧ', 'ꩨ', 'ꩩ', 'တ', 'ထ', 'ၻ', 'ၼ', 'ပ', 'ၽ', 'ၾ', 'ၿ', 'ꧤ', 'မ', 'ယ', 'ရ', 'လ', 'ဝ', 'ႀ', 'သ', 'ႁ', 'ꩮ', 'ဢ'], };
95             },
96 1     1   190 );
  1         2  
  1         237  
97              
98              
99 1     1   764 no Moo;
  1         2  
  1         4  
100              
101             1;
102              
103             # vim: tabstop=4