| line |
true |
false |
branch |
|
56
|
14 |
0 |
if $_[0] =~ /attribute may clash .+? reserved word: (\w+)/o || $_[0] =~ /^Declaration of (\w+) .+? package $pkg .+? reserved word/o and $__ATTR__{$1} |
|
85
|
16 |
14 |
unless exists $__ATTR__{$attr} |
|
89
|
0 |
14 |
if (defined(my $previous = $__PKGS__{$pkg}{$ref})) |
|
95
|
0 |
0 |
if $previous eq $attr |
|
112
|
16 |
14 |
if @unknown |
|
141
|
0 |
32 |
defined $_[0] ? : |
|
152
|
0 |
0 |
unless ($strict) |
|
153
|
0 |
0 |
if (my $wrapped = delete $__DONE__{$pkg}) |
|
174
|
0 |
0 |
if ref $sym |
|
177
|
0 |
0 |
unless my $ref = *{$sym;}{'CODE'} |
|
184
|
0 |
0 |
unless @attr |
|
190
|
0 |
0 |
if ($strict) |
|
222
|
0 |
26 |
unless my $class = shift() |
|
225
|
26 |
0 |
if ($class =~ /;/o) { } |
|
240
|
13 |
13 |
if $@ |