| line |
true |
false |
branch |
|
56
|
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)) |
|
112
|
24 |
0 |
if ($str =~ s/ ^ ( 0? [xX] )? ( [0-9a-fA-F]* ( _ [0-9a-fA-F]+ )* ) //x) { } |
|
115
|
0 |
24 |
unless length $chrs |
|
123
|
0 |
24 |
if (length $str) |
|
142
|
0 |
24 |
if $str =~ /^0?[xX]/ |
|
148
|
0 |
24 |
if ($str =~ /^0?[bB]/) |
|
152
|
0 |
0 |
if ($str =~ s/ ^ ( 0? [bB] )? ( [01]* ( _ [01]+ )* ) //x) |
|
155
|
0 |
0 |
unless length $chrs |
|
161
|
0 |
0 |
if (length $str) |
|
173
|
24 |
0 |
if ($str =~ s/ ^ ( 0? [oO] )? ( [0-7]* ( _ [0-7]+ )* ) //x) |
|
176
|
0 |
24 |
unless length $chrs |
|
183
|
0 |
24 |
if (length $str) |
|
194
|
0 |
0 |
@_ ? : |
|
201
|
0 |
0 |
@_ ? : |
|
214
|
38 |
1 |
$prev_hex ? : |
|
|
23 |
39 |
$hh->{'bigint'} ? : |
|
|
23 |
62 |
$hh->{'bigfloat'} ? : |
|
|
24 |
85 |
$hh->{'bigrat'} ? : |
|
|
38 |
1 |
$prev_oct ? : |
|
|
23 |
39 |
$hh->{'bigint'} ? : |
|
|
23 |
62 |
$hh->{'bigfloat'} ? : |
|
|
24 |
85 |
$hh->{'bigrat'} ? : |
|
235
|
43 |
15 |
if $overridden |
|
270
|
4 |
37 |
if ($param =~ /^a(ccuracy)?$/) |
|
277
|
2 |
35 |
if ($param =~ /^p(recision)?$/) |
|
284
|
0 |
35 |
if ($param eq "round_mode") |
|
291
|
9 |
26 |
if ($param =~ /^(l|lib|try|only)$/) |
|
292
|
2 |
7 |
$param eq 'l' ? : |
|
293
|
9 |
0 |
if @_ |
|
297
|
0 |
26 |
if ($param =~ /^(v|version)$/) |
|
302
|
0 |
26 |
if ($param =~ /^(t|trace)$/) |
|
305
|
0 |
0 |
if $@ |
|
309
|
6 |
20 |
if ($param =~ /^(PI|e|bexp|bpi|hex|oct)\z/) |
|
318
|
0 |
38 |
if $@ |
|
321
|
0 |
38 |
if ($ver) |
|
360
|
7 |
3 |
if $str =~ /^0[XxBb]/ |