Branch Coverage

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


line true false branch
134 0 165 if ($meaning =~ /\(kokuji\)/) { }
148 1431 288 if ($entry =~ /(^[A-Z]+)(.*)/) { }
149 30 1401 if ($entry eq 'T1')
155 1401 0 if ($codes{$field}) { }
156 429 972 if ($has_dupes{$field}) { }
160 972 0 if (not $values{$field}) { }
177 90 198 if ($in_nanori) { }
182 123 75 if ($entry =~ /^([\x{3042}-\x{3093}\.-]+)$/) { }
75 0 elsif ($entry =~ /^([\x{30a2}-\x{30f3}\x{30fc}\.-]+)$/) { }
192 0 1689 if ($AUTHOR and not $found)
197 54 3 if ($values{'MP'})
200 54 3 if ($values{'MN'})
203 54 3 if ($values{'MN'} or $values{'MP'})
206 57 0 if (@english)
209 57 0 if (@onyomi)
212 57 0 if (@kunyomi)
215 30 27 if (@nanori)
223 12 45 if $values{'C'}
241 0 0 if $radval
243 0 0 if $strokeval
245 0 0 if $jisval
258 0 0 if $strokeval
260 0 0 if $radval
262 0 0 if $jisval
276 0 0 if ($valuea->{'G'}) { }
0 0 elsif ($valueb->{'G'}) { }
277 0 0 if ($valueb->{'G'}) { }
279 0 0 if $gradeval
289 0 0 if $strokeval
291 0 0 if $jisval
298 0 3 unless ($file_name)
305 0 3 unless (-f $file_name)
309 0 3 unless open $KANJIDIC, '<:encoding(euc-jp)', $file_name
313 3 57 if /^\#/
370 0 0 unless ($kanjidic->{'indices'})
380 0 0 unless ($kanjidic->{'order'})
400 4 15 unless $kgrade
401 1 14 if $kgrade == $grade