| line |
true |
false |
branch |
|
31
|
1 |
12 |
unless (exists $self->{$key}) |
|
35
|
6 |
6 |
if (ref $self->{$key} ne "ARRAY") |
|
38
|
5 |
1 |
$ref eq '' ? : |
|
49
|
1 |
4 |
unless (exists $self->{$key}) |
|
68
|
1 |
4 |
unless (exists $self->{$key}) |
|
74
|
1 |
1 |
unless (@{$self->{$key};}) |
|
84
|
2 |
4 |
if _check_key($self, $key) |
|
86
|
2 |
2 |
if (not $self->{$key} =~ /^\d+$/ms or $self->{$key} != 0 and $self->{$key} != 1) |
|
98
|
2 |
2 |
if _check_key($self, $key) |
|
100
|
1 |
1 |
if (ref $self->{$key} ne "CODE") |
|
112
|
2 |
5 |
if _check_key($self, $key) |
|
124
|
2 |
3 |
if _check_key($self, $key) |
|
126
|
1 |
2 |
if (length $self->{$key} > $max_length) |
|
138
|
2 |
3 |
if _check_key($self, $key) |
|
140
|
2 |
1 |
if (length $self->{$key} != $length) |
|
152
|
2 |
24 |
if _check_key($self, $key) |
|
154
|
4 |
20 |
unless (&looks_like_number($self->{$key})) |
|
166
|
2 |
5 |
if _check_key($self, $key) |
|
168
|
4 |
1 |
if (not $self->{$key} =~ /^\d+$/ms or $self->{$key} == 0) |
|
180
|
2 |
4 |
if _check_key($self, $key) |
|
184
|
1 |
2 |
if ($self->{$key} < $min) |
|
202
|
1 |
2 |
if ($item_hr->{$item} > 1) |
|
213
|
4 |
12 |
if _check_key($self, $key) |
|
217
|
4 |
6 |
if ($self->{$key} < $min or $self->{$key} > $max) |
|
229
|
1 |
3 |
if _check_key($self, $key) |
|
231
|
1 |
2 |
unless (defined $regexp) |
|
234
|
1 |
1 |
unless ($self->{$key} =~ /^$regexp/ms) |
|
247
|
2 |
1 |
unless (exists $self->{$key} and defined $self->{$key}) |
|
257
|
1 |
3 |
if _check_key($self, $key) |
|
259
|
2 |
1 |
if ($self->{$key} ne $string) |
|
272
|
1 |
3 |
if _check_key($self, $key) |
|
274
|
1 |
2 |
unless (defined $string_base) |
|
277
|
1 |
1 |
unless ($self->{$key} =~ /^$string_base/) |
|
290
|
1 |
5 |
if _check_key($self, $key) |
|
292
|
1 |
4 |
unless (defined $strings_ar) |
|
295
|
1 |
3 |
if (ref $strings_ar ne "ARRAY") |
|
298
|
1 |
2 |
if (&none(sub {
$self->{$key} eq $_;
}
, @{$strings_ar;})) |
|
311
|
24 |
76 |
unless (exists $self->{$key} and defined $self->{$key}) |
|
321
|
4 |
4 |
unless (builtin::blessed($value)) |
|
323
|
2 |
2 |
ref $value eq '' ? : |
|
|
2 |
2 |
ref $value ne '' ? : |
|
336
|
2 |
2 |
unless ($value->isa($class)) |