| line |
!l |
l&&!r |
l&&r |
condition |
|
57
|
279 |
2 |
9 |
$self->{'named_to_list'} and not ref $self->{'named_to_list'}
|
|
77
|
133 |
114 |
38 |
defined $self->{'bless'} and $self->{'bless'} eq 1
|
|
|
247 |
8 |
30 |
defined $self->{'bless'} and $self->{'bless'} eq 1 and not $self->{'named_to_list'}
|
|
129
|
0 |
24 |
1 |
$constraint->type_parameter and $constraint->type_parameter->{'uniq'} == &Any()->{'uniq'}
|
|
157
|
216 |
68 |
1 |
$self->{'slurpy'} and $self->{'slurpy'}->has_default
|
|
175
|
684 |
0 |
2 |
is_HashRef($list->[0]) and exists $list->[0]{'slurpy'}
|
|
|
0 |
0 |
2 |
is_HashRef($list->[0]) and exists $list->[0]{'slurpy'} and not is_Bool($list->[0]{'slurpy'})
|
|
184
|
53 |
5 |
2 |
exists $list->[0]{'slurpy'} and not is_Bool($list->[0]{'slurpy'})
|
|
205
|
290 |
0 |
382 |
is_HashRef($_[0]) and not exists $_[0]{'slurpy'}
|
|
375
|
277 |
4 |
1 |
defined $self->strictness and $self->strictness eq 1
|
|
399
|
403 |
8 |
1 |
$seen_optional and not $is_named
|
|
461
|
45 |
18 |
67 |
defined $max_args and $min_args == $max_args
|
|
|
26 |
27 |
10 |
$min_args and defined $max_args
|
|
620
|
0 |
44 |
1 |
$real_type and $real_type->{'uniq'} == &Any()->{'uniq'}
|
|
674
|
126 |
0 |
0 |
$self->has_strictness and not $self->strictness
|
|
683
|
126 |
0 |
0 |
defined $self->strictness && $self->strictness ne 1
|
|
699
|
254 |
16 |
28 |
$self->bless and $self->oo_trace
|
|
702
|
0 |
0 |
28 |
defined $package and defined $subname
|
|
914
|
29 |
0 |
19 |
$self->is_named and $self->bless
|
|
|
29 |
6 |
13 |
$self->is_named and $self->bless and not $self->named_to_list
|
| line |
l |
!l&&r |
!l&&!r |
condition |
|
79
|
15 |
15 |
0 |
$klass_cache{$klass_key} ||= sprintf("%s%d", $self->{'class_prefix'}, ++$klass_id)
|
|
129
|
1 |
23 |
1 |
$constraint->type_parameter and $constraint->type_parameter->{'uniq'} == &Any()->{'uniq'} or $constraint->my_slurp_into eq "HASH"
|
|
151
|
3 |
0 |
181 |
$parameter->type->is_strictly_a_type_of(&Slurpy()) or $parameter->{'slurpy'}
|
|
228
|
117 |
22 |
173 |
delete $opts->{'positional'} || delete $opts->{'pos'}
|
|
230
|
2 |
17 |
293 |
delete $opts->{'multiple'} || delete $opts->{'multi'}
|
|
232
|
139 |
154 |
19 |
$positional or $named
|
|
|
293 |
17 |
2 |
$positional or $named or $multiple
|
|
283
|
45 |
20 |
85 |
$_[0]->slurpy || grep($_->might_supply_new_value, @{$_[0]->parameters;})
|
|
288
|
0 |
299 |
2 |
$_[0]{'coderef'} ||= $_[0]->_build_coderef
|
|
293
|
5 |
296 |
0 |
$self->description || sprintf(q[parameter validation for '%s::%s'], $self->package || '', $self->subname || '__ANON__')
|
|
633
|
29 |
0 |
0 |
$real_type || $constraint
|
|
767
|
19 |
0 |
265 |
$args{'is_early'} or not exists $args{'is_early'}
|
|
805
|
683 |
0 |
0 |
$args{'display_var'} || $args{'varname'}
|
|
838
|
13 |
30 |
0 |
$self->{'class_attributes'} ||= $self->_build_class_attributes
|
|
876
|
0 |
0 |
30 |
$env eq "PP" or $ENV{'PERL_ONLY'}
|