Branch Coverage

blib/lib/Lingua/JA/Numbers.pm
Criterion Covered Total %
branch 57 76 75.0


line true false branch
26 5 0 $str ? :
132 0 506 $$opt{'zero'} ? :
134 5 501 unless $num
144 48 453 if (length $int > 48 and $$opt{'manman'}) { }
145 4 44 if (length $int > 96)
152 38 6 if $huge
155 0 164 if ($shin eq '00000000')
162 28 425 if (length $int > 72)
166 0 469 $$opt{'sign'} ? :
167 1 467 $$opt{'daiji'} == 1 ? :
1 468 $$opt{'daiji'} >= 2 ? :
0 469 $$opt{'zero2nine'} ? :
171 2 467 $$opt{'daiji'} || $$opt{'daiji_h'} ? :
0 469 $$opt{'ten2thou'} ? :
174 2 467 $$opt{'daiji'} || $$opt{'daiji_h'} ? :
0 469 $$opt{'suffices'} ? :
180 202 267 if $int
183 1 1787 if ($shin eq '0000')
191 10 6703 if ($$opt{'fixed4'} or $$opt{'with_arabic'}) { }
192 10 0 $$opt{'with_arabic'} ? :
196 191 6512 $digit == 1 && !$$opt{'p_one'} && $keta > 0 ? :
201 6540 163 if $digit != 0
211 84 385 if ($fract)
215 0 84 $$opt{'point'} ? :
219 32 437 if ($exp)
220 0 32 $$opt{'hiragana'} ? :
0 32 $$opt{'katakana'} ? :
0 32 $$opt{'romaji'} ? :
226 68 401 if ($style =~ /(?:romaji|[k|g]ana)$/)
358 250 26 unless ($ja =~ /[+\-\.\deE]/)
361 0 250 if $num
363 0 276 unless $ja
376 0 276 if $@ and $$opt{'debug'}
377 0 276 if $$opt{'debug'}
385 0 504 unless $ja
387 220 284 if ($$opt{'manman'})
411 0 504 if $@ and $$opt{'debug'}
412 0 504 if $$opt{'debug'}