line |
true |
false |
branch |
83
|
223 |
111 |
if (ref $spec->{'traits'} and not $spec->{'handles_via'})
|
87
|
0 |
223 |
if (@keep)
|
90
|
223 |
0 |
if (@cull)
|
95
|
0 |
334 |
unless $spec->{'handles_via'}
|
97
|
277 |
57 |
ref $spec->{'handles_via'} ? :
|
100
|
13 |
321 |
if ($default_type{$joined} and not exists $spec->{'isa'})
|
102
|
0 |
13 |
if $default_type{$joined}->has_coercion
|
106
|
5 |
329 |
if is_ArrayRef($spec->{'handles'})
|
121
|
3 |
0 |
if @$attr < 2
|
128
|
0 |
3 |
if (ref $get_slot) { }
|
|
0 |
3 |
elsif ($get_slot =~ /\A \[ ([0-9]+) \] \z/sx) { }
|
|
1 |
2 |
elsif ($get_slot =~ /\A \{ (.+) \} \z/sx) { }
|
149
|
0 |
3 |
if (ref $set_slot) { }
|
|
0 |
3 |
elsif ($set_slot =~ /\A \[ ([0-9]+) \] \z/sx) { }
|
|
1 |
2 |
elsif ($set_slot =~ /\A \{ (.+) \} \z/sx) { }
|
181
|
0 |
3 |
if (is_CodeRef($default))
|
198
|
0 |
0 |
unless my($gen, $handler) = @_
|
199
|
0 |
0 |
if (not $default and $handler) { }
|
|
0 |
0 |
elsif (is_CodeRef($default)) { }
|
|
0 |
0 |
elsif (is_Str($default)) { }
|
218
|
1 |
2 |
$slot ? :
|