| line |
true |
false |
branch |
|
23
|
0 |
35 |
unless $self->_process_when($params)
|
|
26
|
0 |
35 |
unless defined $others
|
|
30
|
0 |
35 |
if DEBUG_CONSTRAINTS()
|
|
32
|
31 |
4 |
ref $others ? :
|
|
40
|
0 |
66 |
if DEBUG_CONSTRAINTS()
|
|
44
|
28 |
38 |
if ($self->not) { }
|
|
|
11 |
27 |
elsif (not $ok) { }
|
|
45
|
12 |
16 |
if ($value eq $EMPTY_STR) { }
|
|
|
6 |
10 |
elsif ($ok) { }
|
|
62
|
2 |
13 |
if ($self->not and $value eq $EMPTY_STR and &all(sub {
$_ eq $EMPTY_STR unless not defined $_;
}
, values %values))
|
|
64
|
9 |
0 |
unless not defined $_
|
|
69
|
14 |
19 |
@failed ? :
|
|
82
|
0 |
0 |
unless defined $v1 or defined $v2
|
|
84
|
2 |
69 |
unless defined $v1 and defined $v2
|
|
86
|
59 |
10 |
if (not ref $v1 || ref $v2) { }
|
|
|
8 |
2 |
elsif (ref $v1 eq 'ARRAY' and ref $v2 eq 'ARRAY') { }
|
|
87
|
36 |
23 |
if $v1 eq $v2
|
|
100
|
0 |
8 |
if scalar @a1 != scalar @a2
|
|
103
|
0 |
15 |
if $a1[$i] ne $a2[$i]
|