| line |
true |
false |
branch |
|
30
|
0 |
3 |
unless $class and not ref $class |
|
31
|
0 |
3 |
unless @_ and @_ % 2 == 0 |
|
34
|
0 |
7 |
unless $name |
|
35
|
0 |
7 |
unless $constraint |
|
36
|
1 |
6 |
if exists $type_registry{$name} or $name eq 'Enum' or $name eq 'Anon' |
|
41
|
4 |
1 |
if (_check_is_profile($constraint)) { } |
|
76
|
3 |
2 |
unless _check_is_profile($sub) |
|
92
|
0 |
17 |
if @_ |
|
97
|
2 |
15 |
unless exists $$opts{'params'} and my $param = delete $$opts{'params'} |
|
104
|
0 |
15 |
if %$opts |
|
111
|
2 |
11 |
if $required eq '*' |
|
112
|
0 |
13 |
unless ref $required and ref $required eq 'ARRAY' |
|
137
|
12 |
21 |
wantarray ? : |
|
158
|
0 |
25 |
unless @_ |
|
178
|
0 |
48 |
unless @_ |
|
188
|
0 |
24 |
unless @_ |
|
210
|
1 |
1 |
if $self->param_is_required($_) |
|
219
|
0 |
24 |
unless @_ >= 2 |
|
220
|
0 |
24 |
if @_ % 2 |
|
223
|
14 |
11 |
unless $self->param_exists($param) and $self->get_profile($param)->($value) |
|
232
|
0 |
4 |
unless $param |
|
233
|
2 |
2 |
if $$self{'_required'}{$param} |
|
240
|
0 |
92 |
unless defined $param |
|
241
|
2 |
90 |
unless exists $$profile{$param} |
|
243
|
53 |
37 |
if (@_) |
|
246
|
20 |
33 |
unless ($result) |
|
248
|
20 |
0 |
if ref $result and $result->isa('Declare::Constraints::Simple::Result') |
|
251
|
0 |
0 |
defined $value ? : |
|
259
|
0 |
15 |
unless defined $param and ref $param and ref $param eq 'HASH' and %$param |
|
278
|
1 |
14 |
unless $result |
|
285
|
2 |
10 |
unless exists $$default{$_} |
|
294
|
1 |
12 |
unless exists $$profile{$_} |
|
302
|
84 |
28 |
unless defined $val |
|
303
|
22 |
6 |
unless ref $val |
|
304
|
5 |
1 |
if ref $val eq 'ARRAY' |
|
310
|
1 |
14 |
unless $sub and ref $sub and ref $sub eq 'CODE' |
|
316
|
4 |
10 |
unless $class and $class eq 'Declare::Constraints::Simple::Result' |
|
327
|
0 |
4 |
unless (defined $name) |
|
331
|
0 |
4 |
unless $sub and ref $sub eq 'CODE' |
|
342
|
0 |
4 |
unless _check_is_profile($made) |