Branch Coverage

blib/lib/Number/Pad.pm
Criterion Covered Total %
branch 11 14 78.5


line true false branch
42 0 18 if (not defined $number) { }
8 10 elsif ($number =~ /\A([+-]?\d+)(\.?)(\d*)[%]?\z/) { }
6 4 elsif ($number =~ /\A([+-]?\d+\.?\d*)([eE])([+-]?\d+)\z/) { }
4 0 elsif ($number =~ /\A([+-]?(?:Inf|NaN))\z/i) { }
77 8 10 if (($bd, $d, $ad) = $number =~ /\A([+-]?\d+)(\.?)(\d*)\z/) { }
6 4 elsif (($bd, $d, $ad) = $number =~ /\A([+-]?\d+\.?\d*)([eE])([+-]?\d+)\z/) { }
4 0 elsif (($bd, undef, undef) = $number =~ /\A([+-]?(?:Inf|NaN))\z/i) { }