| line |
true |
false |
branch |
|
22
|
0 |
0 |
unless my $dir = $args{'root'} |
|
23
|
0 |
0 |
unless -d $dir and -r _ and -x _ |
|
24
|
0 |
0 |
unless defined $args{'limit'} |
|
42
|
0 |
0 |
if $$self{'file'} and $$self{'file'}{'tname'} |
|
49
|
0 |
0 |
if $hdr =~ /\nHost: *(\S+)/i |
|
50
|
0 |
0 |
unless $host |
|
53
|
0 |
0 |
$host =~ s/^(?:\[(\w._\-:)+\]|(\w._\-))(?::(\d+))?$/$2 unless $1;/e ? : |
|
54
|
0 |
0 |
unless $1 |
|
57
|
0 |
0 |
if (my $rx = $$self{'factory_args'}{'only_url'}) |
|
58
|
0 |
0 |
unless "${proto}://${host}:$port$path" =~ /$rx/ or "${proto}://$host$path" =~ /$rx/ |
|
61
|
0 |
0 |
if (my $rx = $$self{'factory_args'}{'exclude_url'}) |
|
62
|
0 |
0 |
if "${proto}://${host}:$port$path" =~ /$rx/ or "${proto}://$host$path" =~ /$rx/ |
|
65
|
0 |
0 |
if (my $srh = $$self{'factory_args'}{'method'}) |
|
66
|
0 |
0 |
unless _check_srh($srh, $method) |
|
71
|
0 |
0 |
unless (-d $dir) |
|
75
|
0 |
0 |
unless my($fh, $fname) = tempfile('tmpXXXXXXX', 'DIR', $dir) |
|
81
|
0 |
0 |
$path =~ s/\?(.+)// ? : |
|
94
|
0 |
0 |
if defined $qstring and not $$self{'factory_args'}{'ignore_parameters'} |
|
110
|
0 |
0 |
unless my $f = $$self{'file'} |
|
113
|
0 |
0 |
if ($data ne '') |
|
115
|
0 |
0 |
if (my $l = $$self{'factory_args'}{'limit'}) |
|
116
|
0 |
0 |
if $$f{'size'}[1] > $l |
|
118
|
0 |
0 |
unless ($md) |
|
119
|
0 |
0 |
if $$self{'factory_args'}{'ignore_parameters'} |
|
125
|
0 |
0 |
if (defined(my $rp = $$f{'rphdr'})) |
|
128
|
0 |
0 |
if (defined($rp = $$f{'rpbody'})) |
|
138
|
0 |
0 |
unless my $f = $$self{'file'} |
|
139
|
0 |
0 |
if $hdr =~ m[\AHTTP/1\.[01] (100|304|5\d\d)] |
|
140
|
0 |
0 |
if (my $srh = $$self{'factory_args'}{'content_type'}) |
|
143
|
0 |
0 |
unless _check_srh($srh, lc $ct) |
|
147
|
0 |
0 |
if (defined $$f{'rphdr'}) { } |
|
157
|
0 |
0 |
unless my $f = $$self{'file'} |
|
159
|
0 |
0 |
if (my $l = $$self{'factory_args'}{'limit'}) |
|
160
|
0 |
0 |
if $$f{'size'}[3] > $l |
|
162
|
0 |
0 |
if ($data eq '') { } |
|
|
0 |
0 |
elsif (defined $$f{'rpbody'}) { } |
|
173
|
0 |
0 |
unless my $f = $$self{'file'} |
|
174
|
0 |
0 |
unless ($$f{'eof'} |= $bit) == 3 |
|
178
|
0 |
0 |
$$f{'md5data'} ? : |
|
189
|
0 |
0 |
unless my $f = $$self{'file'} |
|
199
|
0 |
0 |
unless defined $dir and -d $dir |
|
201
|
0 |
0 |
if (my $limit = delete $cfg{'limit'}) |
|
202
|
0 |
0 |
unless looks_like_number $limit |
|
206
|
0 |
0 |
if ref $v and not ref $v ~~ ['Regexp', 'HASH'] |
|
211
|
0 |
0 |
if ref $v ne 'Regexp' |
|
224
|
0 |
0 |
if ($v =~ m[^/(.*)/$]s) { } |
|
|
0 |
0 |
elsif ((my(@v) = split(/,/, $v, 0)) > 1) { } |
|
225
|
0 |
0 |
unless $cfg{$k} = eval {
do {
qr/$1/
}
} |
|
234
|
0 |
0 |
unless $v =~ m[^/(.*)/$]s |
|
235
|
0 |
0 |
unless $cfg{$k} = eval {
do {
qr/$1/
}
} |
|
242
|
0 |
0 |
if ref $srh eq 'Regexp' |
|
243
|
0 |
0 |
if ref $srh eq 'HASH' |
|
249
|
0 |
0 |
unless my $f = $$self{'file'} |