| 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) { } |
|
63
|
0 |
60 |
unless $self->validate($num) |
|
69
|
15 |
45 |
if not defined $self->{'min'} or $num < $self->{'min'} |
|
70
|
51 |
9 |
if not defined $self->{'max'} or $num > $self->{'max'} |
|
77
|
30 |
30 |
if $self->{'keep_data'} |
|
103
|
1 |
2 |
$opt{'formatted'} ? : |
|
109
|
0 |
7 |
unless ($q =~ /^[01234]$/) |
|
126
|
5 |
0 |
$N > 1 ? : |
|
128
|
0 |
5 |
$opt{'formatted'} ? : |
|
137
|
4 |
0 |
defined $variance ? : |
|
139
|
1 |
3 |
$opt{'formatted'} ? : |
|
149
|
1 |
0 |
defined $stddev ? : |
|
151
|
0 |
1 |
$opt{'formatted'} ? : |
|
160
|
0 |
12 |
if (not $self->{'keep_data'} or scalar @{$data;} == 0) |
|
164
|
0 |
12 |
if ($p < 0 or $p > 100) |
|
168
|
3 |
9 |
unless ($self->{'_is_sorted_'}) |
|
177
|
4 |
8 |
int $idx == $idx ? : |
|
181
|
0 |
12 |
$opt{'formatted'} ? : |
|
199
|
1 |
0 |
if ($self->{'keep_data'}) |
|
210
|
0 |
1 |
if (exists $self->{'percentile'}) |
|
213
|
0 |
0 |
ref $self->{'percentile'} eq 'ARRAY' ? : |
|
221
|
0 |
1 |
if (exists $self->{'quartile'}) |
|
224
|
0 |
0 |
ref $self->{'quartile'} eq 'ARRAY' ? : |