line |
true |
false |
branch |
75
|
2 |
179 |
unless defined $number and length $number |
78
|
143 |
36 |
if $number =~ /^\d+$/ |
81
|
7 |
29 |
if $number =~ /[^+\-\.eE0-9]/ |
87
|
2 |
10 |
unless $exp =~ /^[+\-]?\d+$/ |
|
12 |
17 |
if ($e) |
90
|
3 |
24 |
unless $num =~ /\d/ |
91
|
5 |
19 |
unless $num =~ /^[+\-]?\d*\.?\d*$/ |
128
|
5 |
145 |
unless _test_number($number) |
129
|
143 |
2 |
if $number =~ /^[+\-]?\d+\.?0*$/ |
137
|
0 |
0 |
unless defined $result |
145
|
0 |
0 |
unless defined $result |
171
|
2 |
10 |
unless _test_integer($number) |
172
|
5 |
5 |
$number % 2 == 0 ? : |
177
|
2 |
10 |
unless _test_integer($number) |
178
|
5 |
5 |
$number % 2 == 0 ? : |
198
|
0 |
2 |
unless defined $result |
206
|
0 |
2 |
unless defined $result |
226
|
3 |
74 |
unless defined $arg and length $arg |
230
|
67 |
7 |
unless (defined $max and length $max) |
231
|
19 |
48 |
$sep ? : |
234
|
3 |
71 |
unless _test_integer($min) and $min >= 0 |
237
|
52 |
19 |
if (defined $max and length $max) |
238
|
0 |
52 |
unless _test_integer($max) and $max >= $min |
253
|
2 |
31 |
unless defined $suf_min |
255
|
62 |
0 |
defined $_ ? : |
258
|
0 |
31 |
unless $pre_len >= $pre_min |
259
|
7 |
24 |
unless $suf_len >= $suf_min |
261
|
4 |
12 |
unless $pre_len <= $pre_max |
|
16 |
8 |
if (defined $pre_max) |
262
|
4 |
13 |
unless $suf_len <= $suf_max |
|
17 |
3 |
if (defined $suf_max) |