File Coverage

blib/lib/Locale/CLDR/Locales/Wbp.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::Wbp - Package for language Warlpiri
6              
7             =cut
8              
9             package Locale::CLDR::Locales::Wbp;
10             # This file auto generated from Data\common\main\wbp.xml
11             # on Fri 17 Jan 12:03:31 pm GMT
12              
13 1     1   1587719 use strict;
  1         2  
  1         44  
14 1     1   6 use warnings;
  1         8  
  1         91  
15 1     1   7 use version;
  1         2  
  1         9  
16              
17             our $VERSION = version->declare('v0.46.0');
18              
19 1     1   139 use v5.12.0;
  1         4  
20 1     1   5 use mro 'c3';
  1         4  
  1         8  
21 1     1   31 use utf8;
  1         3  
  1         9  
22 1     1   64 use feature 'unicode_strings';
  1         2  
  1         164  
23 1     1   9 use Types::Standard qw( Str Int HashRef ArrayRef CodeRef RegexpRef );
  1         3  
  1         21  
24 1     1   3279 use Moo;
  1         7  
  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             'en' => 'Yinkirliji',
35             'wbp' => 'Warlpiri',
36              
37             );
38             if (@_) {
39             return $languages{$_[0]};
40             }
41             return \%languages;
42             }
43             },
44             );
45              
46             has 'characters' => (
47             is => 'ro',
48             isa => HashRef,
49             init_arg => undef,
50             default => $^V ge v5.18.0
51             ? eval <<'EOT'
52             sub {
53             no warnings 'experimental::regex_sets';
54             return {
55             auxiliary => qr{[b c e f h o q s v x z]},
56             index => ['J', 'K', 'L', '{LY}', 'M', 'N', '{NG}', '{NY}', 'P', 'R', '{RD}', '{RL}', '{RN}', '{RR}', '{RT}', 'T', 'W', 'Y'],
57             main => qr{[a d g i j k l m n p r t u w y]},
58             };
59             },
60             EOT
61             : sub {
62             return { index => ['J', 'K', 'L', '{LY}', 'M', 'N', '{NG}', '{NY}', 'P', 'R', '{RD}', '{RL}', '{RN}', '{RR}', '{RT}', 'T', 'W', 'Y'], };
63             },
64 1     1   195 );
  1         3  
  1         277  
65              
66              
67 1     1   1026 no Moo;
  1         2  
  1         6  
68              
69             1;
70              
71             # vim: tabstop=4