| line |
true |
false |
branch |
|
14
|
7 |
0 |
unless defined &DEBUG |
|
90
|
30 |
0 |
unless $^O =~ /(?:Mac|MSWin)/ |
|
131
|
16 |
12 |
if ($maybe_response) |
|
157
|
11 |
17 |
unless (defined $not_until) |
|
164
|
16 |
1 |
if ($not_until >= $now) |
|
182
|
1 |
11 |
unless ($code eq '200') |
|
189
|
2 |
9 |
unless $self->_looks_like_rss($url, $response) |
|
194
|
9 |
0 |
if defined $time_string_from_resp |
|
198
|
6 |
3 |
if defined $etag |
|
200
|
9 |
0 |
unless $code eq '304' |
|
215
|
0 |
11 |
unless ($c and $$c) |
|
222
|
9 |
2 |
if ($$c =~ /^[^\x00]{0,2000}?(?:
|
|
239
|
0 |
9 |
unless ($content =~ /^[^\x00]{0,2000}?
|
|
247
|
0 |
9 |
if defined $self->minAge |
|
248
|
0 |
9 |
if defined $self->maxAge |
|
255
|
0 |
9 |
if ($timing->complaints) |
|
282
|
1 |
92 |
unless $contentref and $$contentref |
|
305
|
0 |
6 |
unless defined $etag and length $etag and length $etag < 251 and not $etag =~ /[\n\r]/ |
|
323
|
0 |
9 |
unless defined $time_string and $time_string =~ /^[- \,\.\:a-zA-Z0-9]{4,40}$/s and $time_string =~ /[0-9A-Za-z]/ |
|
360
|
1 |
11 |
if (defined $lastmod and length $lastmod) { } |
|
378
|
1 |
11 |
if (defined $etag and length $etag) { } |
|
420
|
1 |
42 |
if ref $_[0] and defined $_[0]{'_now_hack'} |
|
433
|
0 |
109 |
unless length $url |
|
437
|
15 |
94 |
if ($$for_db{$url} and exists $$for_db{$url}{$varname}) |
|
444
|
46 |
48 |
if ($$from_db{$url} and exists $$from_db{$url}{$varname}) |
|
458
|
0 |
30 |
unless length $url |
|
475
|
25 |
23 |
unless -e $dbfile |
|
479
|
0 |
23 |
unless open STUPID_DB, $dbfile |
|
489
|
95 |
0 |
if (@f >= 2) |
|
491
|
95 |
0 |
defined $f[2] ? : |
|
496
|
23 |
0 |
if $unlocker |
|
499
|
14 |
9 |
if $$from_db{$url} and exists $$from_db{$url}{$varname} |
|
510
|
3 |
7 |
unless %$for_db |
|
517
|
13 |
0 |
defined $value ? : |
|
531
|
7 |
0 |
if $unlocker |
|
543
|
0 |
30 |
unless $file |
|
545
|
30 |
0 |
if $file eq '1' |
|
572
|
0 |
85 |
unless length $url_stem |
|
573
|
49 |
36 |
if length $url > 30 |
|
576
|
85 |
0 |
if (-e $rssdir) { } |
|
579
|
0 |
0 |
if (mkdir $rssdir, 511) { } |
|
595
|
4 |
3 |
if (-e $dbfile and -s _) { } |
|
597
|
0 |
4 |
unless open STUPID_DB, $dbfile |
|
604
|
7 |
0 |
defined $f[2] ? : |
|
|
7 |
3 |
if @f >= 2 and not exists $$to_write{"$f[0] $f[1]"} |
|
614
|
0 |
7 |
unless open STUPID_DB, ">$dbfile" |
|
617
|
0 |
20 |
unless defined($value = $$to_write{$key}) |
|
636
|
0 |
30 |
unless (defined $file and length $file) |
|
641
|
0 |
30 |
unless open my $fh, ">$file" |
|
644
|
0 |
30 |
if ($be_nonblocking) { } |
|
645
|
0 |
0 |
unless eval {
do {
flock $fh, 6
}
} |
|
649
|
0 |
30 |
unless (eval {
do {
flock $fh, 2
}
}) |
|
653
|
0 |
30 |
unless (print $fh 'I am a lowly ', 'XML::RSS::TimingBot', " semaphore file\r\n") |
|
660
|
30 |
0 |
if ($fh) { } |
|
685
|
0 |
552 |
unless $tag =~ /^[a-zA-Z_][a-zA-Z_0-9]*$/s |
|
687
|
0 |
552 |
unless $c and ref $c eq 'SCALAR' |
|
688
|
0 |
552 |
unless $timing and ref $timing and ref $timing ne 'SCALAR' |
|
698
|
368 |
184 |
unless (defined $subtag) |
|
699
|
94 |
274 |
if ($$c =~ m[
<
(?: [a-zA-Z_][-_\.a-zA-Z0-9]* \: )? # optional namespace
$tag\b
.*? # optional attributes and whitespace and junk
>
\s*
([^<>\s"]+)
\s*
]sx) { } |
|
728
|
0 |
184 |
unless $subtag =~ /^[a-zA-Z_][a-zA-Z_0-9]*$/s |
|
731
|
32 |
152 |
if ($$c =~ m[
<
(?: [a-zA-Z_][-_\.a-zA-Z0-9]* \: )? # optional namespace
$tag
\b.*?>
\s*
(
(?:
<
(?: [a-zA-Z_][-_\.a-zA-Z0-9]* \: )? # optional namespace
$subtag
\b.*?>
\s*
[^<>\s"]+
\s*
\s*
)+
)
]sx) { } |