Branch Coverage

blib/lib/bigrat.pm
Criterion Covered Total %
branch 46 76 60.5


line true false branch
66 0 0 if ($str =~ /^0(?:[Oo]|_*[0-7])/ and $nstr = "Math::BigInt"->oct_str_to_dec_flt_str($str) or $nstr = "Math::BigInt"->dec_str_to_dec_flt_str($str) or $str =~ /^0[Xx]/ and $nstr = "Math::BigInt"->hex_str_to_dec_flt_str($str) or $str =~ /^0[Bb]/ and $nstr = "Math::BigInt"->bin_str_to_dec_flt_str($str))
122 14 0 if ($str =~ s/ ^ ( 0? [xX] )? ( [0-9a-fA-F]* ( _ [0-9a-fA-F]+ )* ) //x) { }
125 0 14 unless length $chrs
133 0 14 if (length $str)
152 0 14 if $str =~ /^0?[xX]/
158 0 14 if ($str =~ /^0?[bB]/)
162 0 0 if ($str =~ s/ ^ ( 0? [bB] )? ( [01]* ( _ [01]+ )* ) //x)
165 0 0 unless length $chrs
171 0 0 if (length $str)
183 14 0 if ($str =~ s/ ^ ( 0? [oO] )? ( [0-7]* ( _ [0-7]+ )* ) //x)
186 0 14 unless length $chrs
193 0 14 if (length $str)
204 0 0 @_ ? :
211 0 0 @_ ? :
224 20 1 $prev_hex ? :
13 21 $hh->{'bigint'} ? :
13 34 $hh->{'bignum'} ? :
14 47 $hh->{'bigrat'} ? :
20 1 $prev_oct ? :
13 21 $hh->{'bigint'} ? :
13 34 $hh->{'bignum'} ? :
14 47 $hh->{'bigrat'} ? :
245 29 14 if $overridden
280 0 27 if ($param eq "upgrade")
287 0 27 if ($param eq "downgrade")
294 4 23 if ($param =~ /^a(ccuracy)?$/)
301 2 21 if ($param =~ /^p(recision)?$/)
308 0 21 if ($param eq "round_mode")
315 5 16 if ($param =~ /^(l|lib|try|only)$/)
316 1 4 $param eq 'l' ? :
317 5 0 if @_
321 0 16 if ($param =~ /^(v|version)$/)
326 0 16 if ($param =~ /^(t|trace)$/)
329 0 0 if $@
333 6 10 if ($param =~ /^(PI|e|bexp|bpi|hex|oct)\z/)
342 0 33 if $@
345 0 33 if ($ver)
384 7 3 if $str =~ /^0[XxBb]/