| line |
true |
false |
branch |
|
73
|
0 |
12 |
unless open my $IN, '<', $file |
|
81
|
49 |
141 |
if /$start/o .. /$end/o |
|
146
|
0 |
141 |
unless $$self{'do_variables'} |
|
149
|
7 |
134 |
if ($$self{'var_continues'} or $statement =~ /^(my|our|local)\b/) |
|
183
|
12 |
129 |
if ($statement =~ /^package\s+((?:\w|:)+)\b/) |
|
204
|
7 |
134 |
if ($statement =~ /sub\s+(\w+)\b/) |
|
226
|
0 |
141 |
if ($statement =~ /^\s*use\s+constant\s+([^=[:space:]]+)/) |
|
250
|
19 |
122 |
if ($statement =~ /^(?:use|require)(_ok\(?)?\s+(.*)/) |
|
252
|
0 |
19 |
if $1 |
|
257
|
33 |
0 |
if $1 |
|
273
|
0 |
141 |
if ($statement =~ /^\s*([a-zA-Z_][a-zA-Z0-9_]*)\s*:(?:[^:]|$)/) |