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
|
4 |
88 |
unless (defined $possible_number)
|
86
|
6 |
82 |
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
|
22 |
56 |
if ($input_number < 0)
|
157
|
78 |
0 |
if (exists $split_parts->[0]) { }
|
159
|
22 |
56 |
if ($is_negative)
|
161
|
12 |
66 |
if (substr($retval, -1, 1) eq '_')
|
168
|
55 |
23 |
if (exists $split_parts->[1])
|
170
|
0 |
55 |
if (substr($split_parts->[1], -1, 1) eq '_')
|
175
|
22 |
56 |
if ($is_negative)
|