| line |
true |
false |
branch |
|
21
|
2 |
6 |
unless (exists $self->{$key}) |
|
25
|
3 |
3 |
if (ref $self->{$key} ne "ARRAY") |
|
41
|
1 |
1 |
unless ($obj->isa($class)) |
|
52
|
2 |
4 |
if _check_key($self, $key) |
|
54
|
2 |
2 |
if (not $self->{$key} =~ /^\d+$/ms or $self->{$key} != 0 and $self->{$key} != 1) |
|
66
|
2 |
2 |
if _check_key($self, $key) |
|
68
|
1 |
1 |
if (ref $self->{$key} ne "CODE") |
|
80
|
2 |
5 |
if _check_key($self, $key) |
|
82
|
3 |
2 |
unless (&blessed($self->{$key})) |
|
92
|
1 |
2 |
ref $self->{$key} eq '' ? : |
|
|
2 |
1 |
ref $self->{$key} ne '' ? : |
|
96
|
1 |
1 |
unless ($self->{$key}->isa($class)) |
|
108
|
2 |
3 |
if _check_key($self, $key) |
|
110
|
1 |
2 |
if (length $self->{$key} > $max_length) |
|
122
|
2 |
5 |
if _check_key($self, $key) |
|
124
|
1 |
4 |
unless ($self->{$key} =~ /^[-+]?\d+(\.\d+)?$/ms) |
|
142
|
1 |
2 |
if ($item_hr->{$item} > 1) |
|
153
|
1 |
3 |
if _check_key($self, $key) |
|
155
|
1 |
2 |
unless (defined $regexp) |
|
158
|
1 |
1 |
unless ($self->{$key} =~ /^$regexp/ms) |
|
171
|
2 |
1 |
unless (exists $self->{$key} and defined $self->{$key}) |
|
181
|
1 |
3 |
if _check_key($self, $key) |
|
183
|
1 |
2 |
unless (defined $string_base) |
|
186
|
1 |
1 |
unless ($self->{$key} =~ /^$string_base/) |
|
199
|
1 |
5 |
if _check_key($self, $key) |
|
201
|
1 |
4 |
unless (defined $strings_ar) |
|
204
|
1 |
3 |
if (ref $strings_ar ne "ARRAY") |
|
207
|
1 |
2 |
if (&none(sub {
$self->{$key} eq $_;
}
, @{$strings_ar;})) |
|
220
|
13 |
30 |
unless (exists $self->{$key} and defined $self->{$key}) |