| line |
true |
false |
branch |
|
35
|
0 |
0 |
unless $attr |
|
42
|
0 |
11 |
$$ATTR{'rawdata'} ? : |
|
|
11 |
55 |
unless $phase or $type |
|
44
|
31 |
299 |
if not $phase and $$ATTR{'types'}{$type} |
|
46
|
31 |
268 |
if $$ATTR{'types'}{$type} and $$ATTR{'phases'}{$phase} |
|
55
|
6 |
5 |
unless grep $$ATTR{'phases'}{$_}, @PHASES |
|
56
|
5 |
6 |
$sub =~ /::/ ? : |
|
57
|
3 |
8 |
unless $data =~ /\b(SCALAR|ARRAY|HASH|GLOB|CODE|VAR)\b/ |
|
58
|
8 |
3 |
if $data =~ /\b(undef|ANY|VAR|SCALAR)\b/ |
|
59
|
8 |
3 |
if $data =~ /\b(undef|ANY|VAR|ARRAY)\b/ |
|
60
|
8 |
3 |
if $data =~ /\b(undef|ANY|VAR|HASH)\b/ |
|
61
|
3 |
8 |
if $data =~ /\b(undef|ANY|GLOB)\b/ |
|
62
|
4 |
7 |
if $data =~ /\b(undef|ANY|CODE)\b/ |
|
63
|
0 |
11 |
if $data =~ /\b(RAWDATA)\b/ |
|
99
|
0 |
29 |
$decl eq 'sub' && !$name ? : |
|
|
27 |
29 |
$decl eq 'my' ? : |
|
102
|
56 |
0 |
$name ? : |
|
103
|
5 |
51 |
$name && $name =~ /^(.*::)+/ ? : |
|
105
|
5 |
51 |
$type ? : |
|
108
|
56 |
45 |
unless $attrs =~ /\G:?$comments\s*($id)($parens)?$comments/cg |
|
112
|
11 |
34 |
if ($attr eq 'ATTR') |
|
129
|
45 |
11 |
unless $noprepost |
|
131
|
45 |
191 |
$_ eq 'RUN' ? : |
|
236
|
0 |
2 |
if (grep /Perl\s*6/, @_) { } |