| line |
true |
false |
branch |
|
8
|
0 |
64 |
if ($] < "5.01") |
|
36
|
0 |
796 |
@_ == 1 ? : |
|
38
|
13 |
783 |
if (defined $self{'alias'} and not ref $self{'alias'}) |
|
44
|
1 |
795 |
unless ($Attrs->all(sort(keys %$self))) |
|
48
|
1 |
0 |
@bad == 1 ? : |
|
68
|
11 |
9 |
if exists $_[0]{'in_list'} |
|
75
|
0 |
168 |
exists $_[0]{'coerce'} ? : |
|
81
|
1546 |
769 |
if (exists $_[0]{'optional'}) { } |
|
93
|
108 |
88 |
exists $_[0]{'getter'} ? : |
|
98
|
21 |
67 |
$_[0]->optional ? : |
|
|
108 |
88 |
exists $_[0]{'predicate'} ? : |
|
102
|
159 |
22 |
unless $_[0]->has_default or $_[0]->coerce |
|
108
|
590 |
3 |
unless defined $allow_dash |
|
110
|
23 |
570 |
if ($allow_dash and $self->name =~ /$RE_WORDLIKE/) |
|
115
|
3 |
29 |
if ($allow_dash and $name =~ /$RE_WORDLIKE/) |
|
126
|
5 |
17 |
if (is_CodeRef($default)) |
|
133
|
2 |
15 |
if (is_Undef($default)) |
|
136
|
9 |
6 |
if (is_Str($default)) |
|
139
|
2 |
4 |
if (is_HashRef($default)) |
|
142
|
2 |
2 |
if (is_ArrayRef($default)) |
|
145
|
1 |
1 |
if (is_ScalarRef($default)) |
|
155
|
2 |
22 |
if ($self->should_clone) |
|
179
|
6 |
774 |
if $constraint and $constraint->{'uniq'} eq &Optional()->{'uniq'} |
|
182
|
1 |
779 |
if ($self->has_strictness) { } |
|
|
9 |
770 |
elsif ($signature->has_strictness) { } |
|
190
|
391 |
389 |
if ($args{'is_named'}) { } |
|
192
|
2 |
0 |
$1 eq '_' ? : |
|
206
|
2 |
778 |
if ($needs_clone and not $signature->{'loaded_Storable'}) |
|
218
|
22 |
758 |
if ($args{'is_named'} and my(@aliases) = $self->_all_aliases($signature)) |
|
251
|
9 |
382 |
if ($args{'is_named'} and $signature->list_to_named and $self->in_list) |
|
265
|
22 |
758 |
if ($self->has_default) { } |
|
|
108 |
650 |
elsif ($self->optional) { } |
|
|
294 |
356 |
elsif ($args{'is_named'}) { } |
|
267
|
2 |
20 |
if ($self->default_on_undef) |
|
281
|
89 |
19 |
if ($args{'is_named'}) { } |
|
309
|
2 |
777 |
if ($needs_clone) |
|
318
|
84 |
695 |
if ($constraint->has_coercion and $constraint->coercion->can_be_inlined) { } |
|
|
83 |
612 |
elsif ($constraint->has_coercion) { } |
|
319
|
24 |
60 |
$is_optional ? : |
|
324
|
24 |
60 |
$is_optional ? : |
|
331
|
32 |
51 |
$is_optional ? : |
|
337
|
32 |
51 |
$is_optional ? : |
|
344
|
3 |
776 |
if ($strictness and $$strictness eq 1) { } |
|
|
5 |
1540 |
elsif ($strictness and $$strictness) { } |
|
351
|
2 |
777 |
if ($strictness and not $$strictness) { } |
|
|
13 |
764 |
elsif ($constraint->{'uniq'} == &Any()->{'uniq'}) { } |
|
|
3 |
761 |
elsif ($args{'is_slurpy'} and $self->_dont_validate_slurpy) { } |
|
|
700 |
61 |
elsif ($constraint->can_be_inlined) { } |
|
392
|
110 |
669 |
if ($args{'output_var'}) { } |
|
|
431 |
382 |
elsif ($args{'output_slot'} and $args{'output_slot'} ne $varname) { } |
|
400
|
234 |
197 |
if (not $in_big_optional_block and $varname =~ /\{/) { } |
|
417
|
391 |
388 |
if ($args{'is_named'}) |
|
424
|
89 |
690 |
if ($block_needs_ending) |
|
442
|
0 |
70 |
unless my $type = $self->type |
|
443
|
20 |
50 |
unless (@uniqs) |