| line |
true |
false |
branch |
|
25
|
0 |
1 |
unless my $for_class = $options{'for_class'} |
|
40
|
1 |
1 |
unless @decls |
|
56
|
0 |
1 |
unless defined $declSpec |
|
58
|
1 |
0 |
if (not ref $declSpec) { } |
|
|
0 |
0 |
elsif (ref $declSpec eq 'ARRAY') { } |
|
79
|
1 |
0 |
if (not ref $declSpec and $declSpec =~ /^-([A-Za-z]\w*)$/) { } |
|
93
|
0 |
1 |
unless (my $sub = $myPack->can("declare_$pragma")) |
|
118
|
0 |
0 |
unless (@attrs % 2 == 0) |
|
124
|
0 |
0 |
ref $nameSpec ? : |
|
137
|
0 |
0 |
unless (*{$sym;}{"HASH"}) |
|
142
|
0 |
0 |
ref $nameSpec ? : |
|
158
|
0 |
0 |
if ($declSpec =~ /^([\*\$\%\@\&])?([A-Za-z]\w*)$/) { } |
|
159
|
0 |
0 |
if ($1) { } |
|
204
|
0 |
0 |
unless (defined $pack) |
|
218
|
0 |
0 |
unless (defined symtab($pack_or_obj)->{$name}) |