| line |
true |
false |
branch |
|
64
|
0 |
0 |
unless (defined $possible_number)
|
|
69
|
0 |
0 |
if (not main::RPerl_SvNOKp($possible_number) || main::RPerl_SvIOKp($possible_number))
|
|
81
|
0 |
0 |
unless (defined $possible_number)
|
|
86
|
0 |
0 |
if (not main::RPerl_SvNOKp($possible_number) || main::RPerl_SvIOKp($possible_number))
|
|
102
|
0 |
0 |
if ($input_number == 0) { }
|
|
131
|
0 |
0 |
if ($tmp_string eq '') { }
|
|
152
|
0 |
0 |
if ($input_number < 0)
|
|
157
|
0 |
0 |
if (exists $split_parts->[0]) { }
|
|
159
|
0 |
0 |
if ($is_negative)
|
|
161
|
0 |
0 |
if (substr($retval, -1, 1) eq '_')
|
|
168
|
0 |
0 |
if (exists $split_parts->[1])
|
|
170
|
0 |
0 |
if (substr($split_parts->[1], -1, 1) eq '_')
|
|
175
|
0 |
0 |
if ($is_negative)
|