| line |
true |
false |
branch |
|
37
|
0 |
24 |
if $method_name ne 'BUILDARGS' |
|
40
|
23 |
1 |
if (%init_args) { } |
|
61
|
6 |
4 |
$max_arity == $min_arity ? : |
|
|
10 |
67 |
if $arity < $min_arity or $arity > $max_arity |
|
73
|
7 |
16 |
unless exists $proto->{$param} |
|
76
|
7 |
60 |
if @missing |
|
95
|
10 |
82 |
if ($to =~ /^super\((.*)\)$/u) { } |
|
97
|
6 |
4 |
if $proto->{$from} |
|
100
|
46 |
36 |
if (exists $proto->{$from}) |
|
118
|
4 |
56 |
if (keys %super) |
|
123
|
2 |
58 |
if (keys %$proto) |
|
147
|
4 |
1 |
if @args |
|
159
|
32 |
5 |
if ($args[0]) { } |
|
163
|
1 |
4 |
if ($method_name =~ /^get_(.*)$/u) { } |
|
171
|
0 |
37 |
unless $meta->has_slot($slot_name) or $meta->has_slot_alias($slot_name) |
|
176
|
0 |
205 |
if scalar @_ != 1 |
|
186
|
0 |
1 |
if ($args[0]) { } |
|
193
|
0 |
1 |
if $meta->name->isa('Moxie::Object::Immutable') |
|
196
|
0 |
1 |
unless $meta->has_slot($slot_name) or $meta->has_slot_alias($slot_name) |
|
201
|
0 |
0 |
if scalar @_ > 1 |
|
211
|
13 |
1 |
if ($args[0]) { } |
|
215
|
1 |
0 |
if ($method_name =~ /^set_(.*)$/u) { } |
|
223
|
0 |
14 |
if $meta->name->isa('Moxie::Object::Immutable') |
|
226
|
0 |
14 |
unless $meta->has_slot($slot_name) or $meta->has_slot_alias($slot_name) |
|
231
|
0 |
51 |
if scalar @_ < 1 |
|
241
|
12 |
2 |
if ($args[0]) { } |
|
245
|
2 |
0 |
if ($method_name =~ /^has_(.*)$/u) { } |
|
253
|
0 |
14 |
unless $meta->has_slot($slot_name) or $meta->has_slot_alias($slot_name) |
|
265
|
10 |
0 |
if ($args[0]) { } |
|
269
|
0 |
0 |
if ($method_name =~ /^clear_(.*)$/u) { } |
|
277
|
0 |
10 |
if $meta->name->isa('Moxie::Object::Immutable') |
|
280
|
0 |
10 |
unless $meta->has_slot($slot_name) or $meta->has_slot_alias($slot_name) |
|
292
|
1 |
2 |
if ($args[0]) { } |
|
296
|
0 |
2 |
if ($method_name =~ /^build_(.*)$/u) { } |
|
304
|
0 |
3 |
if $meta->name->isa('Moxie::Object::Immutable') |
|
307
|
0 |
3 |
unless $meta->has_slot($slot_name) or $meta->has_slot_alias($slot_name) |
|
330
|
0 |
2 |
unless $slot_name and $delegate |
|
333
|
0 |
2 |
unless $meta->has_slot($slot_name) or $meta->has_slot_alias($slot_name) |
|
347
|
0 |
36 |
if ($args[0]) { } |
|
354
|
0 |
36 |
unless $meta->has_slot($slot_name) or $meta->has_slot_alias($slot_name) |
|
362
|
0 |
36 |
if ($meta->has_method($method_name) or $meta->has_method_alias($method_name) or $meta->requires_method($method_name)) { } |
|
408
|
62 |
98 |
if (exists $$closed_over{'&' . $method_name}) |
|
424
|
0 |
62 |
if ($class_is_immutable) { } |