| 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)
|