Branch Coverage

blib/lib/Data/Kanji/Kanjidic.pm
Criterion Covered Total %
branch 37 76 48.6


line true false branch
135 0 165 if ($meaning =~ /\(kokuji\)/) { }
149 1431 288 if ($entry =~ /(^[A-Z]+)(.*)/) { }
150 30 1401 if ($entry eq 'T1')
156 1401 0 if ($codes{$field}) { }
157 429 972 if ($has_dupes{$field}) { }
161 972 0 if (not $values{$field}) { }
178 90 198 if ($in_nanori) { }
183 123 75 if ($entry =~ /^([\x{3042}-\x{3093}\.-]+)$/) { }
75 0 elsif ($entry =~ /^([\x{30a2}-\x{30f3}\x{30fc}\.-]+)$/) { }
193 0 1689 if ($AUTHOR and not $found)
198 54 3 if ($values{'MP'})
201 54 3 if ($values{'MN'})
204 54 3 if ($values{'MN'} or $values{'MP'})
207 57 0 if (@english)
210 57 0 if (@onyomi)
213 57 0 if (@kunyomi)
216 30 27 if (@nanori)
224 12 45 if $values{'C'}
242 0 0 if $radval
244 0 0 if $strokeval
246 0 0 if $jisval
259 0 0 if $strokeval
261 0 0 if $radval
263 0 0 if $jisval
277 0 0 if ($valuea->{'G'}) { }
0 0 elsif ($valueb->{'G'}) { }
278 0 0 if ($valueb->{'G'}) { }
280 0 0 if $gradeval
290 0 0 if $strokeval
292 0 0 if $jisval
299 0 3 unless ($file_name)
306 0 3 unless (-f $file_name)
310 0 3 unless open $KANJIDIC, '<:encoding(euc-jp)', $file_name
314 3 57 if /^\#/
371 0 0 unless ($kanjidic->{'indices'})
381 0 0 unless ($kanjidic->{'order'})
401 4 15 unless $kgrade
402 1 14 if $kgrade == $grade