| line |
true |
false |
branch |
|
10
|
0 |
52 |
if ($] < "5.01") |
|
30
|
0 |
715 |
@_ == 1 ? : |
|
32
|
7 |
708 |
if (defined $self{'alias'} and not ref $self{'alias'}) |
|
50
|
0 |
142 |
exists $_[0]{'coerce'} ? : |
|
56
|
1275 |
688 |
exists $_[0]{'optional'} ? : |
|
68
|
73 |
53 |
exists $_[0]{'getter'} ? : |
|
73
|
10 |
43 |
$_[0]->optional ? : |
|
|
73 |
53 |
exists $_[0]{'predicate'} ? : |
|
77
|
133 |
19 |
unless $_[0]->has_default or $_[0]->coerce |
|
84
|
4 |
13 |
if (is_CodeRef($default)) |
|
91
|
2 |
11 |
if (is_Undef($default)) |
|
94
|
5 |
6 |
if (is_Str($default)) |
|
97
|
2 |
4 |
if (is_HashRef($default)) |
|
100
|
2 |
2 |
if (is_ArrayRef($default)) |
|
103
|
1 |
1 |
if (is_ScalarRef($default)) |
|
113
|
2 |
17 |
if ($self->should_clone) |
|
136
|
1 |
698 |
if ($self->has_strictness) { } |
|
|
9 |
689 |
elsif ($signature->has_strictness) { } |
|
144
|
350 |
349 |
if ($args{'is_named'}) { } |
|
146
|
2 |
0 |
$1 eq '_' ? : |
|
160
|
2 |
697 |
if ($needs_clone and not $signature->{'loaded_Storable'}) |
|
172
|
8 |
691 |
if ($args{'is_named'} and $self->has_alias) |
|
205
|
17 |
682 |
if ($self->has_default) { } |
|
|
99 |
583 |
elsif ($self->optional) { } |
|
|
264 |
319 |
elsif ($args{'is_named'}) { } |
|
217
|
80 |
19 |
if ($args{'is_named'}) { } |
|
245
|
2 |
696 |
if ($needs_clone) |
|
254
|
84 |
614 |
if ($constraint->has_coercion and $constraint->coercion->can_be_inlined) { } |
|
|
83 |
531 |
elsif ($constraint->has_coercion) { } |
|
255
|
24 |
60 |
$is_optional ? : |
|
260
|
24 |
60 |
$is_optional ? : |
|
267
|
32 |
51 |
$is_optional ? : |
|
273
|
32 |
51 |
$is_optional ? : |
|
280
|
3 |
695 |
if ($strictness and $$strictness eq 1) { } |
|
|
5 |
1378 |
elsif ($strictness and $$strictness) { } |
|
287
|
2 |
696 |
if ($strictness and not $$strictness) { } |
|
|
13 |
683 |
elsif ($constraint->{'uniq'} == &Any()->{'uniq'}) { } |
|
|
622 |
61 |
elsif ($constraint->can_be_inlined) { } |
|
325
|
104 |
594 |
if ($args{'output_var'}) { } |
|
|
390 |
323 |
elsif ($args{'output_slot'} and $args{'output_slot'} ne $varname) { } |
|
333
|
204 |
186 |
if (not $in_big_optional_block and $varname =~ /\{/) { } |
|
350
|
350 |
348 |
if ($args{'is_named'}) |
|
357
|
80 |
618 |
if ($block_needs_ending) |