| line |
true |
false |
branch |
|
58
|
0 |
4 |
unless $$self{'body'} |
|
67
|
0 |
2 |
unless $body |
|
76
|
0 |
13 |
if $$links{$lnk} |
|
80
|
2 |
11 |
if ($lnk =~ m[\Ahttps?://]) |
|
87
|
6 |
5 |
unless ($link) |
|
89
|
4 |
2 |
if ($link =~ /.*[\>\:]([^\>]+)\z/) |
|
96
|
1 |
10 |
if ($link =~ m[\Ahttps?://]) |
|
103
|
2 |
8 |
if ($link =~ /\A(\w+):/) |
|
106
|
2 |
0 |
if (my $nmsp = $namespaces{$namespace}) { } |
|
107
|
2 |
0 |
if (ref $nmsp eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $nmsp eq 'CODE') { } |
|
108
|
2 |
0 |
if $$nmsp{'prefix'} |
|
109
|
2 |
0 |
if $$nmsp{'category'} |
|
112
|
0 |
0 |
if ($lnk and $lnk =~ m[\Ahttps?://]) { } |
|
|
0 |
0 |
elsif ($lnk) { } |
|
126
|
10 |
0 |
if ($categ) |
|
129
|
2 |
8 |
if ($base) |
|
132
|
8 |
2 |
unless ($link =~ m[\Ahttps?://]) |
|
138
|
1 |
1 |
wantarray ? : |
|
145
|
5 |
3 |
unless $link =~ m[/] |
|
150
|
0 |
0 |
$ent =~ /(acute|grave|circ|uml|ring|slash|tilde|cedil)$/i ? : |
|
184
|
6 |
39 |
if $done{$tag}++ |
|
188
|
24 |
15 |
ref $closed{$tag} eq 'ARRAY' ? : |
|
191
|
15 |
24 |
if (not $re2) { } |
|
194
|
5 |
5 |
$in ? : |
|
198
|
0 |
15 |
if $in |
|
203
|
4 |
25 |
if (ref $re3 eq 'Regexp') { } |
|
|
25 |
0 |
elsif (ref $re3 eq 'CODE') { } |
|
226
|
2 |
0 |
if ($plugins{$plugin}) |
|
239
|
1 |
0 |
if ($plugins{$plugin}) |
|
254
|
0 |
0 |
if $override or not $namespaces{$namespace} |
|
263
|
0 |
0 |
if $override or not $plugins{$pluginname} |
|
283
|
0 |
0 |
if ($$headers{$id}) |
|
321
|
6 |
0 |
unless ($ln =~ /^\s/) |
|
322
|
5 |
1 |
if ($item) |
|
330
|
5 |
1 |
if ($nl ne $cl) |
|
332
|
4 |
4 |
if not $close and substr($cl, $i, 1) eq substr($nl, $i, 1) |
|
333
|
3 |
1 |
unless $close |
|
334
|
1 |
3 |
substr($cl, $i, 1) eq '#' ? : |
|
336
|
2 |
3 |
if $start == -1 |
|
337
|
3 |
2 |
if $close |
|
339
|
1 |
4 |
substr($nl, $i, 1) eq '#' ? : |
|
346
|
1 |
0 |
if ($item) |
|
349
|
1 |
0 |
if ($cl) |
|
351
|
0 |
1 |
substr($cl, $i, 1) eq '#' ? : |
|
364
|
1 |
3 |
unless $$self{'_links'} and $$self{'_links'}{$link} |
|
372
|
1 |
3 |
if ($class) |
|
408
|
1 |
0 |
if (ref $params eq 'ARRAY') { } |
|
410
|
0 |
1 |
if (@$params and ref $$params[0] eq 'HASH') { } |
|
419
|
0 |
1 |
unless $src |
|
421
|
0 |
1 |
if ($src =~ m[\Ahttps?://] and $$self{'image_filter'}) { } |
|
|
0 |
1 |
elsif ($$self{'image_mapper'}) { } |
|
427
|
0 |
1 |
unless $src |
|
430
|
0 |
1 |
if ($$params{'size'}) |
|
433
|
0 |
0 |
if ($w and $h) |
|
440
|
4 |
0 |
unless $$params{$attr} |
|
468
|
1 |
1 |
unless $paramstr |
|
470
|
1 |
0 |
unless ($paramstr =~ /\A\s*[\{\[]/) |
|
474
|
0 |
1 |
unless my $params = eval {
do {
from_json $paramstr, {'utf8', 1}
}
} |