| line |
true |
false |
branch |
|
29
|
0 |
0 |
unless $$self{'self'} |
|
30
|
0 |
0 |
if $$self{'DIR'} |
|
31
|
0 |
0 |
if $$self{'FILENAME'} |
|
53
|
0 |
0 |
if @_ |
|
61
|
0 |
0 |
unless my $name = shift() |
|
64
|
0 |
0 |
if (defined $value) |
|
76
|
0 |
0 |
unless $filename |
|
85
|
0 |
0 |
unless $string |
|
98
|
0 |
0 |
unless $filename |
|
101
|
0 |
0 |
if (substr($filename, 1, 1) eq '/' and $ENV{'DOCUMENT_ROOT'}) { } |
|
|
0 |
0 |
elsif ($$self{'dir'}) { } |
|
115
|
0 |
0 |
if ($x = $self->var($v) or defined $x) { } |
|
|
0 |
0 |
elsif ($x = eval "\$main::$v" or defined $x) { } |
|
|
0 |
0 |
elsif ($x = eval "\$$v" or defined $x) { } |
|
|
0 |
0 |
elsif ($x = eval "\$ENV{$v}" or defined $x) { } |
|
119
|
0 |
0 |
$$self{'QUIET'} ? : |
|
132
|
0 |
0 |
if ($pn =~ m[^/]) { } |
|
135
|
0 |
0 |
if ($ENV{'SCRIPT_FILENAME'}) { } |
|
145
|
0 |
0 |
if (-f $progpath) { } |
|
146
|
0 |
0 |
if (-x $progpath) { } |
|
150
|
0 |
0 |
if $ENV{'CONTENT_LENGTH'} |
|
151
|
0 |
0 |
if $ENV{'CONTENT_TYPE'} |
|
155
|
0 |
0 |
if $pn =~ /(.*)\?/ |
|
160
|
0 |
0 |
if $ENV{'CONTENT_LENGTH'} |
|
161
|
0 |
0 |
if $ENV{'CONTENT_TYPE'} |
|
169
|
0 |
0 |
if ($progpath =~ m[^([-/\\\@\w.]+)$]) { } |
|
179
|
0 |
0 |
if $x |
|
190
|
0 |
0 |
if $cl |
|
191
|
0 |
0 |
if $ct |
|
202
|
0 |
0 |
unless my $fh = 'IO::File'->new("<$filename") |