| line |
true |
false |
branch |
|
28
|
0 |
1 |
if (exists $args{'debug'}) |
|
29
|
0 |
0 |
unless $args{'debug'} =~ /^(0|1)$/ |
|
35
|
0 |
1 |
if scalar keys %args |
|
61
|
0 |
2 |
if $status < 0 |
|
65
|
1 |
1 |
if length $_ == 0 |
|
79
|
1 |
0 |
if ref $_[1] ne '' and $_[1]->parent == $_[0] |
|
82
|
1 |
0 |
if (ref $subs eq '') |
|
93
|
0 |
0 |
if $words[0]->content ne 'sub' |
|
100
|
0 |
0 |
if not defined $subname or $subname eq '' |
|
112
|
0 |
0 |
if ($c =~ /^\#DECORATOR:\@(\w+)\s*$/) { } |
|
|
0 |
0 |
elsif ($c =~ /^\#DECORATOR:\@(\w+\(.+\))\s*$/) { } |
|
134
|
0 |
0 |
if $after_sub eq '' |
|
156
|
0 |
0 |
if ref $_[1] ne '' and $_[1]->parent == $_[0] |
|
159
|
0 |
0 |
if scalar @blocks != 1 |
|
166
|
0 |
0 |
if $brace->content ne '}' |
|
177
|
0 |
0 |
if $$self{'debug'} |