line |
true |
false |
branch |
23
|
0 |
0 |
unless my $dir = $args{'root'} |
24
|
0 |
0 |
unless -d $dir and -r _ and -x _ |
25
|
0 |
0 |
unless defined $args{'limit'} |
43
|
0 |
0 |
if $$self{'file'} and $$self{'file'}{'tname'} |
50
|
0 |
0 |
if $hdr =~ /\nHost: *(\S+)/i |
51
|
0 |
0 |
unless $host |
54
|
0 |
0 |
$host =~ s/^(?:\[(\w._\-:)+\]|(\w._\-))(?::(\d+))?$/$2 unless $1;/e ? : |
55
|
0 |
0 |
unless $1 |
58
|
0 |
0 |
if (my $rx = $$self{'factory_args'}{'only_url'}) |
59
|
0 |
0 |
unless "${proto}://${host}:$port$path" =~ /$rx/ or "${proto}://$host$path" =~ /$rx/ |
62
|
0 |
0 |
if (my $rx = $$self{'factory_args'}{'exclude_url'}) |
63
|
0 |
0 |
if "${proto}://${host}:$port$path" =~ /$rx/ or "${proto}://$host$path" =~ /$rx/ |
66
|
0 |
0 |
if (my $srh = $$self{'factory_args'}{'method'}) |
67
|
0 |
0 |
unless _check_srh($srh, $method) |
72
|
0 |
0 |
unless (-d $dir) |
76
|
0 |
0 |
unless my($fh, $fname) = tempfile('tmpXXXXXXX', 'DIR', $dir) |
82
|
0 |
0 |
$path =~ s/\?(.+)// ? : |
95
|
0 |
0 |
if defined $qstring and not $$self{'factory_args'}{'ignore_parameters'} |
111
|
0 |
0 |
unless my $f = $$self{'file'} |
114
|
0 |
0 |
if ($data ne '') |
116
|
0 |
0 |
if (my $l = $$self{'factory_args'}{'limit'}) |
117
|
0 |
0 |
if $$f{'size'}[1] > $l |
119
|
0 |
0 |
unless ($md) |
120
|
0 |
0 |
if $$self{'factory_args'}{'ignore_parameters'} |
126
|
0 |
0 |
if (defined(my $rp = $$f{'rphdr'})) |
129
|
0 |
0 |
if (defined($rp = $$f{'rpbody'})) |
139
|
0 |
0 |
unless my $f = $$self{'file'} |
140
|
0 |
0 |
if $hdr =~ m[\AHTTP/1\.[01] (100|304|5\d\d)] |
141
|
0 |
0 |
if (my $srh = $$self{'factory_args'}{'content_type'}) |
144
|
0 |
0 |
unless _check_srh($srh, lc $ct) |
148
|
0 |
0 |
if (defined $$f{'rphdr'}) { } |
158
|
0 |
0 |
unless my $f = $$self{'file'} |
160
|
0 |
0 |
if (my $l = $$self{'factory_args'}{'limit'}) |
161
|
0 |
0 |
if $$f{'size'}[3] > $l |
163
|
0 |
0 |
if ($data eq '') { } |
|
0 |
0 |
elsif (defined $$f{'rpbody'}) { } |
174
|
0 |
0 |
unless my $f = $$self{'file'} |
175
|
0 |
0 |
unless ($$f{'eof'} |= $bit) == 3 |
179
|
0 |
0 |
$$f{'md5data'} ? : |
190
|
0 |
0 |
unless my $f = $$self{'file'} |
200
|
0 |
0 |
unless defined $dir and -d $dir |
202
|
0 |
0 |
if (my $limit = delete $cfg{'limit'}) |
203
|
0 |
0 |
unless looks_like_number $limit |
207
|
0 |
0 |
if ref $v and not ref $v ~~ ['Regexp', 'HASH'] |
212
|
0 |
0 |
if ref $v ne 'Regexp' |
225
|
0 |
0 |
if ($v =~ m[^/(.*)/$]s) { } |
|
0 |
0 |
elsif ((my(@v) = split(/,/, $v, 0)) > 1) { } |
226
|
0 |
0 |
unless $cfg{$k} = eval {
do {
qr/$1/
}
} |
235
|
0 |
0 |
unless $v =~ m[^/(.*)/$]s |
236
|
0 |
0 |
unless $cfg{$k} = eval {
do {
qr/$1/
}
} |
243
|
0 |
0 |
if ref $srh eq 'Regexp' |
244
|
0 |
0 |
if ref $srh eq 'HASH' |
250
|
0 |
0 |
unless my $f = $$self{'file'} |