Branch Coverage

lib/Convert/Number/Roman.pm
Criterion Covered Total %
branch 47 64 73.4


line true false branch
42 0 190 if ($#_ > 2)
46 0 190 if ($number =~ /lower|upper/)
50 190 0 if ($number)
51 0 190 if (not $number =~ /^\d+$/ || $number =~ /^[\x{304}\x{33f}\x{2160}-\x{2182}]+$/) { }
59 0 190 if ($style)
60 0 0 if ($style =~ /lower|upper/i) { }
85 0 1 if @_
102 11 84 if length $_ == 1
137 95 124 unless defined $number
142 54 165 if ($number >= 40000) { }
147 124 38 if ($group != /^0+$/)
148 88 36 if ($lines) { }
151 70 18 $roman ? :
166 16 344 if ($number >= 10000) { }
0 344 elsif ($number >= 9000) { }
0 344 elsif ($number >= 5000) { }
0 344 elsif ($number >= 4000) { }
30 314 elsif ($number >= 1000) { }
0 314 elsif ($number >= 900) { }
4 310 elsif ($number >= 500) { }
0 310 elsif ($number >= 400) { }
128 182 elsif ($number >= 100) { }
0 182 elsif ($number >= 90) { }
4 178 elsif ($number >= 50) { }
1 177 elsif ($number >= 40) { }
43 134 elsif ($number > 12) { }
64 70 elsif ($number >= 10) { }
261 95 95 if @_
263 95 95 $self->number =~ /^[0-9]+$/ ? :
269 190 0 $$self{'style'} eq 'upper' ? :
280 95 190 if @_
291 0 0 if @_