File Coverage

blib/lib/Locale/CLDR/Transformations/Any/Hang/Latn.pm
Criterion Covered Total %
statement 33 33 100.0
branch 1 2 50.0
condition n/a
subroutine 12 12 100.0
pod n/a
total 46 47 97.8


line stmt bran cond sub pod time code
1             # This file auto generated from Data/common/transforms/Hangul-Latin.xml
2             # on Mon 11 Apr 5:22:56 pm GMT
3              
4             use strict;
5 1     1   879070 use warnings;
  1         2  
  1         30  
6 1     1   5 use version;
  1         2  
  1         27  
7 1     1   5  
  1         2  
  1         21  
8             our $VERSION = version->declare('v0.34.1');
9              
10             use v5.10.1;
11 1     1   100 use mro 'c3';
  1         3  
12 1     1   4 use utf8;
  1         2  
  1         8  
13 1     1   23 use if $^V ge v5.12.0, feature => 'unicode_strings';
  1         3  
  1         7  
14 1     1   30 use Types::Standard qw( Str Int HashRef ArrayRef CodeRef RegexpRef );
  1         1  
  1         13  
15 1     1   122 use Moo;
  1         2  
  1         9  
16 1     1   985  
  1         3  
  1         8  
17             BEGIN {
18             die "Transliteration requires Perl 5.18 or above"
19 1 50   1   365 unless $^V ge v5.18.0;
20             }
21              
22             no warnings 'experimental::regex_sets';
23 1     1   6 has 'transforms' => (
  1         2  
  1         110  
24             is => 'ro',
25             isa => ArrayRef,
26             init_arg => undef,
27             default => sub { [
28             qr/(?^um:\G.)/,
29             {
30             type => 'transform',
31             data => [
32             {
33             from => q(Any),
34             to => q(NFKD),
35             },
36             {
37             from => q(ConjoiningJamo),
38             to => q(Latin),
39             },
40             {
41             from => q(Any),
42             to => q(NFC),
43             },
44             ]
45             },
46             ] },
47             );
48              
49             no Moo;
50 1     1   6  
  1         1  
  1         4  
51             1;
52              
53             # vim: tabstop=4