blib/lib/Lingua/ZH/Romanize/Pinyin.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 20 | 30 | 66.6 |
line | true | false | branch |
---|---|---|---|
104 | 0 | 4 | unless -r $store |
105 | 0 | 4 | unless my $self = Storable::retrieve($store) |
112 | 0 | 12 | unless $PERL581 |
115 | 4 | 8 | if $utf8 |
117 | 4 | 8 | if $utf8 |
124 | 4 | 8 | unless exists $$self{$char} |
131 | 16 | 0 | $#$_ > 0 ? : |
136 | 0 | 20 | unless $PERL581 |
139 | 10 | 10 | if $flag |
141 | 10 | 10 | if ($flag) |
143 | 44 | 0 | if defined $$pair[0] |
144 | 44 | 0 | if defined $$pair[1] |
155 | 88 | 0 | if (defined $1) { } |
157 | 88 | 0 | if exists $$self{$1} |
173 | 0 | 4 | unless $store =~ s/\.pm$/.store/ |