| line |
true |
false |
branch |
|
175
|
4 |
3 |
if (ref $Filter::Simple::components[$index] and ${$Filter::Simple::components[$index];} =~ /^#/) |
|
193
|
41 |
4 |
if (length $args) |
|
220
|
41 |
4 |
if (@args) { } |
|
227
|
33 |
43 |
if ($args[$_] =~ /^\s*([\$\%\@]\s*\w+)\s*=/) { } |
|
|
38 |
5 |
elsif ($args[$_] =~ /^\s*([\$\%\@]\s*\w+)\s*$/) { } |
|
|
3 |
2 |
elsif ($args[$_] =~ /^\s*\$\s*$/) { } |
|
|
2 |
0 |
elsif ($args[$_] =~ /^\s*[\%\@]\s*$/) { } |
|
254
|
41 |
0 |
if @args |
|
338
|
0 |
0 |
if ($scope and $scope eq 'global') |
|
350
|
0 |
0 |
if (ref $prefix eq 'CODE') { } |
|
353
|
0 |
0 |
if (@found) |
|
358
|
0 |
0 |
if not -e $realfilename or -d _ or -b _ |
|
360
|
0 |
0 |
unless open my $fh, '<', $realfilename |
|
365
|
0 |
0 |
unless (ref $found[0]) |