| line |
true |
false |
branch |
|
175
|
4 |
3 |
if (ref $Filter::Simple::components[$index] and ${$Filter::Simple::components[$index];} =~ /^#/) |
|
193
|
43 |
4 |
if (length $args) |
|
220
|
43 |
4 |
if (@args) { } |
|
227
|
35 |
45 |
if ($args[$_] =~ m[^\s*([\$\%\@]\s*\w+)\s*(//=|\|\|=|=)\s*(.*)$]) { } |
|
|
40 |
5 |
elsif ($args[$_] =~ /^\s*([\$\%\@]\s*\w+)\s*$/) { } |
|
|
3 |
2 |
elsif ($args[$_] =~ /^\s*\$\s*$/) { } |
|
|
2 |
0 |
elsif ($args[$_] =~ /^\s*[\%\@]\s*$/) { } |
|
231
|
33 |
2 |
if ($op eq '=') { } |
|
260
|
43 |
0 |
if @args |
|
344
|
0 |
0 |
if ($scope and $scope eq "global") |
|
356
|
0 |
0 |
if (ref $prefix eq 'CODE') { } |
|
359
|
0 |
0 |
if (@found) |
|
364
|
0 |
0 |
if not -e $realfilename or -d _ or -b _ |
|
366
|
0 |
0 |
unless open my $fh, "<", $realfilename |
|
371
|
0 |
0 |
unless (ref $found[0]) |