| line |
true |
false |
branch |
|
16
|
0 |
8 |
if ($delimiter =~ /^\\[a-z]$/) |
|
17
|
0 |
0 |
$delimiter eq '\\n' ? : |
|
|
0 |
0 |
$delimiter eq '\\t' ? : |
|
22
|
8 |
0 |
if ($format =~ /( \s* \% [\s+-]? [0-9]*\.?[0-9]* [deEfgGi] \s* )/x) { } |
|
64
|
0 |
60 |
unless $self->validate($num) |
|
70
|
6 |
54 |
if not defined $$self{'min'} or $num < $$self{'min'} |
|
71
|
60 |
0 |
if not defined $$self{'max'} or $num > $$self{'max'} |
|
78
|
30 |
30 |
if $$self{'keep_data'} |
|
102
|
1 |
2 |
$opt{'formatted'} ? : |
|
127
|
4 |
0 |
$N > 1 ? : |
|
129
|
0 |
4 |
$opt{'formatted'} ? : |
|
138
|
4 |
0 |
defined $variance ? : |
|
140
|
1 |
3 |
$opt{'formatted'} ? : |
|
150
|
1 |
0 |
defined $stddev ? : |
|
152
|
0 |
1 |
$opt{'formatted'} ? : |
|
161
|
0 |
8 |
if (not $$self{'keep_data'} or scalar @{$data;} == 0) |
|
164
|
0 |
8 |
if ($p < 0 or $p > 1) |
|
168
|
3 |
5 |
unless ($$self{'_is_sorted_'}) |
|
176
|
2 |
6 |
int $idx == $idx ? : |
|
180
|
0 |
8 |
$opt{'formatted'} ? : |
|
197
|
1 |
0 |
if ($$self{'keep_data'}) |