| line |
true |
false |
branch |
|
13
|
0 |
2 |
if grep(($_ eq "parseXML"), @_) |
|
20
|
0 |
3 |
unless ref $rr eq "HASH" |
|
21
|
0 |
3 |
unless ref $cref eq "SCALAR" |
|
24
|
0 |
3 |
unless $$cref |
|
28
|
2 |
1 |
if index(${$cref;}, "
|
|
29
|
1 |
0 |
if index(${$cref;}, "
|
|
30
|
0 |
0 |
if index(${$cref;}, "
|
|
31
|
0 |
0 |
if index(${$cref;}, "
|
|
41
|
2 |
1 |
if (not defined $strip) { } |
|
|
1 |
0 |
elsif ($strip eq '1') { } |
|
67
|
1 |
0 |
if (exists $rr->{'item'}) { } |
|
74
|
0 |
0 |
if (exists $item->{'dc:description'}) |
|
77
|
0 |
0 |
if (exists $item->{'dc:title'}) |
|
80
|
0 |
0 |
if (exists $item->{'dc:identifier'}) |
|
100
|
0 |
0 |
if (exists $item->{'text'}) |
|
103
|
0 |
0 |
if (exists $item->{'linetext'}) |
|
106
|
0 |
0 |
if (exists $item->{'url'}) |
|
127
|
0 |
0 |
if (exists $item->{'url'}) |
|
140
|
0 |
3 |
unless defined $rr->{'items'} |
|
141
|
0 |
3 |
unless ref $rr->{'items'} eq "ARRAY" |
|
144
|
0 |
32 |
if ref $i->{'description'} |
|
147
|
0 |
32 |
unless ($i->{'link'}) |
|
148
|
0 |
0 |
if (defined $i->{'url'}) { } |
|
|
0 |
0 |
elsif (exists $i->{'title'}) { } |
|
153
|
0 |
0 |
if ($i->{'title'} =~ /^(?:https?|ftp):/) { } |
|
|
0 |
0 |
elsif ($i->{'title'} =~ /"((?:https?|ftp).*?)"/) { } |
|
171
|
0 |
32 |
if (exists $i->{'link'} and not $i->{'link'} =~ m[^(https?|ftp)://]i) |
|
173
|
0 |
0 |
if (ref $i->{'link'} and $i->{'link'}{'a'}{'href'}) { } |
|
|
0 |
0 |
elsif ($i->{'link'} =~ m[^[#/]] and $rr->{'link'} =~ m[^https?://]) { } |
|
177
|
0 |
0 |
if (substr($i->{'link'}, 0, 1) ne "/") |
|
188
|
0 |
32 |
unless (defined $i->{'title'}) |
|
192
|
32 |
0 |
if (exists $i->{'link'}) |
|
211
|
0 |
0 |
if ($comments) |
|
220
|
0 |
3 |
if ($comments) |
|
225
|
0 |
0 |
if (ref $comments eq "ARRAY") |
|
250
|
21 |
169 |
unless $str =~ m[<\Q$tag\E\s*([^>]*?)?>(.*?)]s |
|
257
|
43 |
147 |
if ($attr) |
|
264
|
40 |
150 |
if ($content and index($content, "<") > -1) |
|
267
|
40 |
0 |
if ($str =~ />[^><]+
|
|
278
|
0 |
40 |
if $content =~ /\S/ |
|
282
|
40 |
150 |
if (ref $inhash) { } |
|
|
21 |
129 |
elsif (ref $attr) { } |
|
284
|
22 |
18 |
if (ref $attr) |
|
289
|
0 |
0 |
ref $inhash->{$_} eq 'ARRAY' ? : |
|
|
0 |
22 |
exists $inhash->{$_} ? : |
|
304
|
44 |
6 |
ref $hash->{$tag} eq 'ARRAY' ? : |
|
|
50 |
140 |
exists $hash->{$tag} ? : |