| line |
true |
false |
branch |
|
45
|
0 |
1 |
unless tie @stuff, 'Tie::File', $file |
|
84
|
0 |
1 |
unless $line |
|
86
|
1 |
0 |
if $obj |
|
98
|
1 |
0 |
if exists $$self{'cache'}{$kanji} |
|
102
|
0 |
0 |
if $obj and $obj->kanji eq $kanji |
|
207
|
0 |
1 |
if $line =~ /^# KANJIDIC/ |
|
208
|
0 |
1 |
unless $line =~ s/^(\w+)\s*// |
|
209
|
0 |
1 |
unless $line =~ s/^($hex+)\s*// |
|
210
|
0 |
1 |
unless $line =~ s/U($hex+)\s*// |
|
212
|
13 |
0 |
if $line =~ s/\b($_)(\d+)\s*// |
|
222
|
1 |
0 |
if $line =~ s/\bP([\d\-]+)\s*// |
|
224
|
1 |
0 |
if $line =~ s/\bC(\d+)\s*// |
|
233
|
1 |
0 |
if $line =~ s/\bMP(\d+\.\d+)\s*// |
|
236
|
1 |
0 |
if $line =~ s/\bI(\d[a-z]\d+\.\d+)\s*// |
|
244
|
1 |
0 |
if $line =~ s/\bQ(\d{4}\.\d)\s*// |
|
253
|
1 |
1 |
$1 eq 'W' ? : |