| line |
true |
false |
branch |
|
9
|
8 |
3 |
defined $_[1] ? : |
|
31
|
1 |
0 |
if (/^(?:antlers|moose-?like)$/i) |
|
38
|
1 |
0 |
unless (grep $_->can('_mk_accessors'), @_) |
|
65
|
4 |
52 |
if ($accessor_name eq 'DESTROY' or $mutator_name eq 'DESTROY') |
|
68
|
38 |
18 |
if ($accessor_name eq $mutator_name) { } |
|
70
|
22 |
16 |
if ($ra and $wa) { } |
|
|
8 |
8 |
elsif ($ra) { } |
|
79
|
32 |
6 |
unless (defined &{$fullname;}) |
|
80
|
0 |
32 |
if defined &Class::Accessor::subname |
|
84
|
38 |
0 |
if ($accessor_name eq $field) |
|
87
|
0 |
38 |
if defined &Class::Accessor::subname and not $subnamed |
|
88
|
38 |
0 |
unless defined &{$alias;} |
|
93
|
12 |
6 |
if ($ra and not defined &{$fullaccname;}) |
|
95
|
0 |
12 |
if defined &Class::Accessor::subname |
|
98
|
12 |
6 |
if ($wa and not defined &{$fullmutname;}) |
|
100
|
0 |
12 |
if defined &Class::Accessor::subname |
|
144
|
9 |
2 |
if (@_ == 1) { } |
|
|
2 |
0 |
elsif (@_ > 1) { } |
|
158
|
19 |
0 |
if (@_ == 1) { } |
|
|
0 |
0 |
elsif (@_ > 1) { } |
|
175
|
5 |
11 |
if (@_) { } |
|
189
|
2 |
6 |
if (@_) { } |
|
205
|
5 |
2 |
if (@_) { } |