File Coverage

blib/lib/Unicode/Indic/Telugu.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition 1 3 33.3
subroutine 4 4 100.0
pod 0 1 0.0
total 18 21 85.7


line stmt bran cond sub pod time code
1             package Unicode::Indic::Telugu;
2 1     1   604 use strict;
  1         2  
  1         37  
3 1     1   680 use Unicode::Indic::Phonetic;
  1         2  
  1         57  
4             our $VERSION = 0.01;
5             our @ISA = qw (Unicode::Indic::Phonetic);
6 1     1   7 use constant U => 0x0c00;
  1         2  
  1         1960  
7             my $Map = {
8             A => chr(U+0x3e),
9             B => chr(U+0x2d),
10             C => chr(U+0x1b),
11             Ch => chr(U+0x1b),
12             D => chr(U+0x21),
13             Dh => chr(U+0x22),
14             E => chr(U+0x47),
15             G => chr(U+0x18),
16             H => chr(U+0x3),
17             I => chr(U+0x40),
18             J => chr(U+0x1d),
19             K => chr(U+0x16),
20             L => chr(U+0x33),
21             M => chr(U+0x2),
22             N => chr(U+0x23),
23             O => chr(U+0x4b),
24             P => chr(U+0x2b),
25             R => chr(U+0x43),
26             Ri => chr(U+0x43),
27             Ru => chr(U+0x43),
28             RR => chr(U+0x44),
29             RI => chr(U+0x44),
30             RU => chr(U+0x44),
31             S => chr(U+0x36),
32             T => chr(U+0x1f),
33             Th => chr(U+0x20),
34             U => chr(U+0x42),
35             _A => chr(U+0x6),
36             _E => chr(U+0xf),
37             _I => chr(U+0x8),
38             _O => chr(U+0x13),
39             _R => chr(U+0xb),
40             _Ri => chr(U+0xb),
41             _Ru => chr(U+0xb),
42             _RR => chr(U+0x60),
43             _RI => chr(U+0x60),
44             _RU => chr(U+0x60),
45             _U => chr(U+0xa),
46             _a => chr(U+0x5),
47             _aa => chr(U+0x6),
48             _ai => chr(U+0x10),
49             _au => chr(U+0x14),
50             _e => chr(U+0xe),
51             _ee => chr(U+0x8),
52             _i => chr(U+0x7),
53             _ii => chr(U+0x8),
54             _o => chr(U+0x12),
55             _oo => chr(U+0xa),
56             _u => chr(U+0x9),
57             _uu => chr(U+0xa),
58             _ue => chr(U+0xc),
59             _ui => chr(U+0x61),
60             a => 0,
61             aa => chr(U+0x3e),
62             ai => chr(U+0x48),
63             au => chr(U+0x4c),
64             b => chr(U+0x2c),
65             bh => chr(U+0x2d),
66             c => chr(U+0x1a),
67             ch => chr(U+0x1a),
68             d => chr(U+0x26),
69             dh => chr(U+0x27),
70             e => chr(U+0x46),
71             ee => chr(U+0x40),
72             f => chr(U+0x28),
73             g => chr(U+0x17),
74             gh => chr(U+0x18),
75             h => chr(U+0x39),
76             i => chr(U+0x3f),
77             ii => chr(U+0x40),
78             j => chr(U+0x1c),
79             jh => chr(U+0x1d),
80             k => chr(U+0x15),
81             kh => chr(U+0x16),
82             l => chr(U+0x32),
83             m => chr(U+0x2e),
84             n => chr(U+0x28),
85             o => chr(U+0x4a),
86             oo => chr(U+0x42),
87             p => chr(U+0x2a),
88             ph => chr(U+0x2b),
89             r => chr(U+0x30),
90             s => chr(U+0x38),
91             sh => chr(U+0x37),
92             t => chr(U+0x24),
93             th => chr(U+0x25),
94             u => chr(U+0x41),
95             uu => chr(U+0x42),
96             v => chr(U+0x35),
97             ue => chr(U+0x4d).chr(U+0x32).chr(U+0x41), #chr(U+0x62),
98             ui => chr(U+0x4d).chr(U+0x32).chr(U+0x42), #chr(U+0x63),
99             w => chr(U+0x35),
100             y => chr(U+0x2f),
101             '~L' => chr(U+0x33), # Sane as L which is same as l.
102             '~N' => chr(U+0x23), # Same as N
103             '~d' => chr(U+0x21), # Same as D
104             '~D' => chr(U+0x22), # Same as Dh
105             '~f' => chr(U+0x28), # Sane as f
106             '~g' => chr(U+0x17), # Sane as g
107             '~j' => chr(U+0x1c), # Same as j
108             '~k' => chr(U+0x15), # Same as k
109             '~K' => chr(U+0x16), # Same as k
110             '~y' => chr(U+0x2f), # Same as k
111             '~m' => chr(U+0x19),
112             '~n' => chr(U+0x1e),
113             '~r' => chr(U+0x31),
114             virama=> chr(U+0x4d),
115             base => chr(U),
116             };
117            
118             sub new{
119 1     1 0 254 my $proto = shift;
120 1   33     9 my $class = ref($proto)||$proto;
121            
122 1         5 my $self = { Map => $Map };
123 1         7 bless $self, $class;
124             }
125             1;
126            
127            
128             __END__