| line |
true |
false |
branch |
|
10
|
3 |
8 |
unless defined $fields |
|
33
|
1 |
0 |
if (/^(?:antlers|moose-?like)$/i) |
|
40
|
1 |
0 |
unless (grep $_->can('_mk_accessors'), @_) |
|
67
|
4 |
52 |
if ($accessor_name eq 'DESTROY' or $mutator_name eq 'DESTROY') |
|
70
|
38 |
18 |
if ($accessor_name eq $mutator_name) { } |
|
72
|
22 |
16 |
if ($ra and $wa) { } |
|
|
8 |
8 |
elsif ($ra) { } |
|
81
|
32 |
6 |
unless (defined &{$fullname;}) |
|
82
|
0 |
32 |
if defined &subname |
|
86
|
38 |
0 |
if ($accessor_name eq $field) |
|
89
|
0 |
38 |
if defined &subname and not $subnamed |
|
90
|
38 |
0 |
unless defined &{$alias;} |
|
95
|
12 |
6 |
if ($ra and not defined &{$fullaccname;}) |
|
97
|
0 |
12 |
if defined &subname |
|
100
|
12 |
6 |
if ($wa and not defined &{$fullmutname;}) |
|
102
|
0 |
12 |
if defined &subname |
|
146
|
9 |
2 |
if (@_ == 1) { } |
|
|
2 |
0 |
elsif (@_ > 1) { } |
|
160
|
19 |
0 |
if (@_ == 1) { } |
|
|
0 |
0 |
elsif (@_ > 1) { } |
|
177
|
5 |
11 |
if (@_) { } |
|
191
|
2 |
6 |
if (@_) { } |
|
207
|
2 |
5 |
if (not @_) { } |