line |
true |
false |
branch |
13
|
0 |
2 |
if grep(($_ eq 'parseXML'), @_) |
20
|
0 |
2 |
unless ref $rr eq 'HASH' |
21
|
0 |
2 |
unless ref $cref eq 'SCALAR' |
24
|
0 |
2 |
unless $$cref |
28
|
1 |
1 |
if index(${$cref;}, '
|
29
|
1 |
0 |
if index(${$cref;}, '
|
30
|
0 |
0 |
if index(${$cref;}, '
|
31
|
0 |
0 |
if index(${$cref;}, '
|
60
|
1 |
0 |
if (exists $$rr{'item'}) { } |
67
|
0 |
0 |
if (exists $$item{'dc:description'}) |
70
|
0 |
0 |
if (exists $$item{'dc:title'}) |
73
|
0 |
0 |
if (exists $$item{'dc:identifier'}) |
93
|
0 |
0 |
if (exists $$item{'text'}) |
96
|
0 |
0 |
if (exists $$item{'linetext'}) |
99
|
0 |
0 |
if (exists $$item{'url'}) |
120
|
0 |
0 |
if (exists $$item{'url'}) |
133
|
0 |
2 |
unless defined $$rr{'items'} |
134
|
0 |
2 |
unless ref $$rr{'items'} eq 'ARRAY' |
137
|
0 |
26 |
if ref $$i{'description'} |
140
|
0 |
26 |
unless ($$i{'link'}) |
141
|
0 |
0 |
if (defined $$i{'url'}) { } |
|
0 |
0 |
elsif (exists $$i{'title'}) { } |
146
|
0 |
0 |
if ($$i{'title'} =~ /^(?:https?|ftp):/) { } |
|
0 |
0 |
elsif ($$i{'title'} =~ /"((?:https?|ftp).*?)"/) { } |
163
|
0 |
26 |
if (exists $$i{'link'} and not $$i{'link'} =~ m[^(https?|ftp)://]i) |
165
|
0 |
0 |
if (ref $$i{'link'} and $$i{'link'}{'a'}{'href'}) { } |
|
0 |
0 |
elsif ($$i{'link'} =~ m[^[#/]] and $$rr{'link'} =~ m[^https?://]) { } |
169
|
0 |
0 |
if (substr($$i{'link'}, 0, 1) ne '/') |
180
|
0 |
26 |
unless (defined $$i{'title'}) |
184
|
26 |
0 |
if (exists $$i{'link'}) |
203
|
0 |
0 |
if ($comments) |
212
|
0 |
2 |
if ($comments) |
217
|
0 |
0 |
if (ref $comments eq 'ARRAY') |
242
|
21 |
124 |
unless $str =~ m[<\Q$tag\E\s*([^>]*?)?>(.*?)\Q$tag\E>]s |
249
|
43 |
102 |
if ($attr) |
256
|
32 |
113 |
if ($content and index($content, '<') > -1) |
259
|
32 |
0 |
if ($str =~ />[^><]+) |
270
|
0 |
32 |
if $content =~ /\S/ |
274
|
32 |
113 |
if (ref $inhash) { } |
|
21 |
92 |
elsif (ref $attr) { } |
276
|
22 |
10 |
if (ref $attr) |
280
|
0 |
0 |
ref $$inhash{$_} eq 'ARRAY' ? : |
|
0 |
22 |
exists $$inhash{$_} ? : |
295
|
40 |
4 |
ref $$hash{$tag} eq 'ARRAY' ? : |
|
44 |
101 |
exists $$hash{$tag} ? : |