line |
true |
false |
branch |
95
|
223 |
115 |
if (ref $spec->{'traits'} and not $spec->{'handles_via'})
|
99
|
0 |
223 |
if (@keep)
|
102
|
223 |
0 |
if (@cull)
|
107
|
0 |
338 |
unless $spec->{'handles_via'}
|
109
|
277 |
61 |
ref $spec->{'handles_via'} ? :
|
116
|
15 |
323 |
if ($default_type{$joined} and not exists $spec->{'isa'})
|
118
|
0 |
15 |
if $default_type{$joined}->has_coercion
|
125
|
6 |
332 |
is_ArrayRef($spec->{'handles'}) ? :
|
128
|
3 |
339 |
if is_Int($item)
|
130
|
8 |
334 |
if (is_Str($item)) { }
|
|
334 |
0 |
elsif (is_HashRef($item)) { }
|
154
|
3 |
0 |
if @$attr < 2
|
161
|
0 |
3 |
if (ref $get_slot) { }
|
|
0 |
3 |
elsif ($get_slot =~ /\A \[ ([0-9]+) \] \z/sx) { }
|
|
1 |
2 |
elsif ($get_slot =~ /\A \{ (.+) \} \z/sx) { }
|
182
|
0 |
3 |
if (ref $set_slot) { }
|
|
0 |
3 |
elsif ($set_slot =~ /\A \[ ([0-9]+) \] \z/sx) { }
|
|
1 |
2 |
elsif ($set_slot =~ /\A \{ (.+) \} \z/sx) { }
|
214
|
0 |
3 |
if (is_CodeRef($default))
|
231
|
0 |
0 |
unless my($gen, $handler) = @_
|
232
|
0 |
0 |
if (not $default and $handler) { }
|
|
0 |
0 |
elsif (is_CodeRef($default)) { }
|
|
0 |
0 |
elsif (is_Str($default)) { }
|
251
|
1 |
2 |
$slot ? :
|