Branch Coverage

blib/lib/Encode/Positive/Digits.pm
Criterion Covered Total %
branch 13 20 65.0


line true false branch
22 0 387 unless $number =~ /\A\d+\Z/s
26 0 387 unless $b > 1
29 3 384 if $number == 0
36 2284 384 if $p < $n
37 12 372 if $p == $n
53 0 259 unless $b > 1
62 0 2025 if $i < 0
181 0 1 if eval "eof(${p}::DATA)"
183 0 1 if $@
185 0 1 if $@