| line |
true |
false |
branch |
|
75
|
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)) |
|
116
|
17 |
6 |
if ($expo_sgn eq '-') { } |
|
120
|
0 |
0 |
if defined $upgrade |
|
122
|
0 |
0 |
if ($mant_len <= $expo) { } |
|
155
|
1 |
0 |
if ($str =~ s/ ^ ( 0? [xX] )? ( [0-9a-fA-F]* ( _ [0-9a-fA-F]+ )* ) //x) { } |
|
158
|
0 |
1 |
unless length $chrs |
|
166
|
0 |
1 |
if (length $str) |
|
185
|
0 |
1 |
if $str =~ /^0?[xX]/ |
|
191
|
0 |
1 |
if ($str =~ /^0?[bB]/) |
|
195
|
0 |
0 |
if ($str =~ s/ ^ ( 0? [bB] )? ( [01]* ( _ [01]+ )* ) //x) |
|
198
|
0 |
0 |
unless length $chrs |
|
204
|
0 |
0 |
if (length $str) |
|
216
|
1 |
0 |
if ($str =~ s/ ^ ( 0? [oO] )? ( [0-7]* ( _ [0-7]+ )* ) //x) |
|
219
|
0 |
1 |
unless length $chrs |
|
226
|
0 |
1 |
if (length $str) |
|
237
|
0 |
0 |
@_ ? : |
|
244
|
0 |
0 |
@_ ? : |
|
257
|
0 |
1 |
$prev_hex ? : |
|
|
0 |
1 |
$hh->{'bigint'} ? : |
|
|
0 |
1 |
$hh->{'bigrat'} ? : |
|
|
1 |
1 |
$hh->{'bignum'} ? : |
|
|
0 |
1 |
$prev_oct ? : |
|
|
0 |
1 |
$hh->{'bigint'} ? : |
|
|
0 |
1 |
$hh->{'bigrat'} ? : |
|
|
1 |
1 |
$hh->{'bignum'} ? : |
|
278
|
31 |
14 |
if $overridden |
|
315
|
2 |
39 |
if ($param eq "upgrade") |
|
317
|
1 |
1 |
if defined $arg |
|
324
|
2 |
37 |
if ($param eq "downgrade") |
|
326
|
0 |
2 |
if defined $arg |
|
333
|
2 |
35 |
if ($param =~ /^a(ccuracy)?$/) |
|
340
|
2 |
33 |
if ($param =~ /^p(recision)?$/) |
|
347
|
0 |
33 |
if ($param eq "round_mode") |
|
354
|
9 |
24 |
if ($param =~ /^(l|lib|try|only)$/) |
|
355
|
2 |
7 |
$param eq 'l' ? : |
|
356
|
9 |
0 |
if @_ |
|
360
|
0 |
24 |
if ($param =~ /^(v|version)$/) |
|
365
|
4 |
20 |
if ($param =~ /^(PI|e|bexp|bpi|hex|oct)\z/) |
|
374
|
0 |
25 |
if $@ |
|
378
|
0 |
25 |
if $@ |
|
381
|
0 |
25 |
if ($ver) |
|
420
|
7 |
3 |
if $str =~ /^0[XxBb]/ |