| line |
true |
false |
branch |
|
70
|
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)) |
|
109
|
4 |
3 |
if ($expo_sgn eq '-') { } |
|
111
|
0 |
4 |
if defined $upgrade |
|
113
|
0 |
4 |
if ($mant_len <= $expo) { } |
|
146
|
15 |
0 |
if ($str =~ s/ ^ ( 0? [xX] )? ( [0-9a-fA-F]* ( _ [0-9a-fA-F]+ )* ) //x) { } |
|
149
|
0 |
15 |
unless length $chrs |
|
157
|
0 |
15 |
if (length $str) |
|
176
|
0 |
16 |
if $str =~ /^0?[xX]/ |
|
182
|
0 |
16 |
if ($str =~ /^0?[bB]/) |
|
186
|
0 |
0 |
if ($str =~ s/ ^ ( 0? [bB] )? ( [01]* ( _ [01]+ )* ) //x) |
|
189
|
0 |
0 |
unless length $chrs |
|
195
|
0 |
0 |
if (length $str) |
|
207
|
16 |
0 |
if ($str =~ s/ ^ ( 0? [oO] )? ( [0-7]* ( _ [0-7]+ )* ) //x) |
|
210
|
0 |
16 |
unless length $chrs |
|
217
|
0 |
16 |
if (length $str) |
|
228
|
1 |
0 |
@_ ? : |
|
235
|
2 |
0 |
@_ ? : |
|
248
|
2 |
19 |
$prev_hex ? : |
|
|
0 |
21 |
$hh->{'bigrat'} ? : |
|
|
0 |
21 |
$hh->{'bignum'} ? : |
|
|
1 |
21 |
$hh->{'bigint'} ? : |
|
|
2 |
19 |
$prev_oct ? : |
|
|
0 |
21 |
$hh->{'bigrat'} ? : |
|
|
0 |
21 |
$hh->{'bignum'} ? : |
|
|
1 |
21 |
$hh->{'bigint'} ? : |
|
269
|
28 |
13 |
if $overridden |
|
304
|
0 |
25 |
if ($param eq "upgrade") |
|
311
|
0 |
25 |
if ($param eq "downgrade") |
|
318
|
2 |
23 |
if ($param =~ /^a(ccuracy)?$/) |
|
325
|
2 |
21 |
if ($param =~ /^p(recision)?$/) |
|
332
|
0 |
21 |
if ($param eq "round_mode") |
|
339
|
5 |
16 |
if ($param =~ /^(l|lib|try|only)$/) |
|
340
|
1 |
4 |
$param eq 'l' ? : |
|
341
|
5 |
0 |
if @_ |
|
345
|
0 |
16 |
if ($param =~ /^(v|version)$/) |
|
350
|
0 |
16 |
if ($param =~ /^(t|trace)$/) |
|
353
|
0 |
0 |
if $@ |
|
357
|
6 |
10 |
if ($param =~ /^(PI|e|bexp|bpi|hex|oct)\z/) |
|
366
|
0 |
31 |
if $@ |
|
369
|
0 |
31 |
if ($ver) |
|
408
|
7 |
3 |
if $str =~ /^0[XxBb]/ |