| line |
true |
false |
branch |
|
10
|
0 |
51 |
if ($] < "5.01") |
|
30
|
0 |
704 |
@_ == 1 ? : |
|
32
|
7 |
697 |
if (defined $self{'alias'} and not ref $self{'alias'}) |
|
50
|
0 |
139 |
exists $_[0]{'coerce'} ? : |
|
56
|
1259 |
677 |
exists $_[0]{'optional'} ? : |
|
68
|
73 |
53 |
exists $_[0]{'getter'} ? : |
|
73
|
10 |
43 |
$_[0]->optional ? : |
|
|
73 |
53 |
exists $_[0]{'predicate'} ? : |
|
77
|
130 |
17 |
unless $_[0]->has_default or $_[0]->coerce |
|
84
|
4 |
10 |
if (is_CodeRef($default)) |
|
91
|
2 |
8 |
if (is_Undef($default)) |
|
94
|
2 |
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 |
14 |
if ($self->should_clone) |
|
136
|
1 |
687 |
if ($self->has_strictness) { } |
|
|
9 |
678 |
elsif ($signature->has_strictness) { } |
|
144
|
347 |
341 |
if ($args{'is_named'}) { } |
|
146
|
2 |
0 |
$1 eq '_' ? : |
|
160
|
2 |
686 |
if ($needs_clone and not $signature->{'loaded_Storable'}) |
|
172
|
8 |
680 |
if ($args{'is_named'} and $self->has_alias) |
|
205
|
14 |
674 |
if ($self->has_default) { } |
|
|
99 |
575 |
elsif ($self->optional) { } |
|
|
262 |
313 |
elsif ($args{'is_named'}) { } |
|
217
|
80 |
19 |
if ($args{'is_named'}) { } |
|
245
|
2 |
685 |
if ($needs_clone) |
|
254
|
84 |
603 |
if ($constraint->has_coercion and $constraint->coercion->can_be_inlined) { } |
|
|
83 |
520 |
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 |
684 |
if ($strictness and $$strictness eq 1) { } |
|
|
5 |
1356 |
elsif ($strictness and $$strictness) { } |
|
287
|
2 |
685 |
if ($strictness and not $$strictness) { } |
|
|
13 |
672 |
elsif ($constraint->{'uniq'} == &Any()->{'uniq'}) { } |
|
|
611 |
61 |
elsif ($constraint->can_be_inlined) { } |
|
325
|
99 |
588 |
if ($args{'output_var'}) { } |
|
|
387 |
320 |
elsif ($args{'output_slot'} and $args{'output_slot'} ne $varname) { } |
|
333
|
202 |
185 |
if (not $in_big_optional_block and $varname =~ /\{/) { } |
|
350
|
347 |
340 |
if ($args{'is_named'}) |
|
357
|
80 |
607 |
if ($block_needs_ending) |