| line |
true |
false |
branch |
|
60
|
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)) |
|
99
|
6 |
3 |
if ($expo_sgn eq '-') { } |
|
100
|
0 |
6 |
if ($mant_len <= $expo) { } |
|
133
|
25 |
0 |
if ($str =~ s/ ^ ( 0? [xX] )? ( [0-9a-fA-F]* ( _ [0-9a-fA-F]+ )* ) //x) { } |
|
136
|
0 |
25 |
unless length $chrs |
|
144
|
0 |
25 |
if (length $str) |
|
163
|
0 |
26 |
if $str =~ /^0?[xX]/ |
|
169
|
0 |
26 |
if ($str =~ /^0?[bB]/) |
|
173
|
0 |
0 |
if ($str =~ s/ ^ ( 0? [bB] )? ( [01]* ( _ [01]+ )* ) //x) |
|
176
|
0 |
0 |
unless length $chrs |
|
182
|
0 |
0 |
if (length $str) |
|
194
|
26 |
0 |
if ($str =~ s/ ^ ( 0? [oO] )? ( [0-7]* ( _ [0-7]+ )* ) //x) |
|
197
|
0 |
26 |
unless length $chrs |
|
204
|
0 |
26 |
if (length $str) |
|
215
|
1 |
0 |
@_ ? : |
|
222
|
2 |
0 |
@_ ? : |
|
235
|
2 |
37 |
$prev_hex ? : |
|
|
0 |
39 |
$hh->{'bigrat'} ? : |
|
|
0 |
39 |
$hh->{'bigfloat'} ? : |
|
|
1 |
39 |
$hh->{'bigint'} ? : |
|
|
2 |
37 |
$prev_oct ? : |
|
|
0 |
39 |
$hh->{'bigrat'} ? : |
|
|
0 |
39 |
$hh->{'bigfloat'} ? : |
|
|
1 |
39 |
$hh->{'bigint'} ? : |
|
256
|
42 |
14 |
if $overridden |
|
291
|
2 |
37 |
if ($param =~ /^a(ccuracy)?$/) |
|
298
|
2 |
35 |
if ($param =~ /^p(recision)?$/) |
|
305
|
0 |
35 |
if ($param eq "round_mode") |
|
312
|
9 |
26 |
if ($param =~ /^(l|lib|try|only)$/) |
|
313
|
2 |
7 |
$param eq 'l' ? : |
|
314
|
9 |
0 |
if @_ |
|
318
|
0 |
26 |
if ($param =~ /^(v|version)$/) |
|
323
|
0 |
26 |
if ($param =~ /^(t|trace)$/) |
|
326
|
0 |
0 |
if $@ |
|
330
|
6 |
20 |
if ($param =~ /^(PI|e|bexp|bpi|hex|oct)\z/) |
|
339
|
0 |
36 |
if $@ |
|
342
|
0 |
36 |
if ($ver) |
|
381
|
7 |
3 |
if $str =~ /^0[XxBb]/ |