| line |
true |
false |
branch |
|
65
|
0 |
0 |
unless (defined $possible_number)
|
|
69
|
0 |
0 |
unless (main::RPerl_SvNOKp($possible_number) or main::RPerl_SvIOKp($possible_number))
|
|
80
|
4 |
74 |
unless (defined $possible_number)
|
|
84
|
6 |
68 |
unless (main::RPerl_SvNOKp($possible_number) or main::RPerl_SvIOKp($possible_number))
|
|
100
|
0 |
0 |
if ($input_number == 0) { }
|
|
130
|
0 |
0 |
if ($tmp_string eq '') { }
|
|
152
|
18 |
46 |
if ($input_number < 0)
|
|
157
|
64 |
0 |
if (exists $split_parts->[0]) { }
|
|
159
|
18 |
46 |
if ($is_negative)
|
|
161
|
10 |
54 |
if (substr($retval, -1, 1) eq '_')
|
|
168
|
41 |
23 |
if (exists $split_parts->[1])
|
|
170
|
0 |
41 |
if (substr($split_parts->[1], -1, 1) eq '_')
|
|
175
|
18 |
46 |
if ($is_negative)
|