| 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 ? : |
|
|
0 |
21 |
$hh->{'bigint'} ? : |
|
|
0 |
21 |
$hh->{'bigrat'} ? : |
|
|
1 |
21 |
$hh->{'bignum'} ? : |
|
|
20 |
1 |
$prev_oct ? : |
|
|
0 |
21 |
$hh->{'bigint'} ? : |
|
|
0 |
21 |
$hh->{'bigrat'} ? : |
|
|
1 |
21 |
$hh->{'bignum'} ? : |
|
245
|
42 |
15 |
if $overridden |
|
280
|
0 |
41 |
if ($param eq "upgrade") |
|
287
|
0 |
41 |
if ($param eq "downgrade") |
|
294
|
2 |
39 |
if ($param =~ /^a(ccuracy)?$/) |
|
301
|
2 |
37 |
if ($param =~ /^p(recision)?$/) |
|
308
|
0 |
37 |
if ($param eq "round_mode") |
|
315
|
9 |
28 |
if ($param =~ /^(l|lib|try|only)$/) |
|
316
|
2 |
7 |
$param eq 'l' ? : |
|
317
|
9 |
0 |
if @_ |
|
321
|
0 |
28 |
if ($param =~ /^(v|version)$/) |
|
326
|
0 |
28 |
if ($param =~ /^(t|trace)$/) |
|
329
|
0 |
0 |
if $@ |
|
333
|
8 |
20 |
if ($param =~ /^(PI|e|bexp|bpi|hex|oct)\z/) |
|
342
|
0 |
37 |
if $@ |
|
345
|
0 |
37 |
if ($ver) |
|
384
|
7 |
3 |
if $str =~ /^0[XxBb]/ |