| line |
true |
false |
branch |
|
60
|
0 |
4 |
unless $self->{'body'} |
|
69
|
0 |
4 |
unless $body |
|
78
|
0 |
20 |
if $links->{$lnk} |
|
82
|
2 |
18 |
if ($lnk =~ m[\Ahttps?://]) |
|
91
|
7 |
11 |
unless ($link) |
|
93
|
5 |
2 |
if ($link =~ /.*[\>\:]\s*([^\>]+)\z/) |
|
100
|
1 |
17 |
if ($link =~ m[\Ahttps?://]) |
|
107
|
2 |
15 |
if ($link =~ /\A(\w+):/) |
|
110
|
2 |
0 |
if (my $nmsp = $namespaces{$namespace}) { } |
|
111
|
2 |
0 |
if (ref $nmsp eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $nmsp eq 'CODE') { } |
|
112
|
2 |
0 |
if $nmsp->{'prefix'} |
|
113
|
2 |
0 |
if $nmsp->{'category'} |
|
116
|
0 |
0 |
if ($lnk and $lnk =~ m[\Ahttps?://]) { } |
|
|
0 |
0 |
elsif ($lnk) { } |
|
130
|
17 |
0 |
if ($categ) |
|
133
|
2 |
15 |
if ($base) |
|
136
|
15 |
2 |
unless ($link =~ m[\Ahttps?://]) |
|
142
|
1 |
3 |
wantarray ? : |
|
150
|
17 |
4 |
unless $link =~ m[/] |
|
155
|
0 |
0 |
$ent =~ /(acute|grave|circ|uml|ring|slash|tilde|cedil)$/i ? : |
|
191
|
39 |
39 |
if $done{$tag}++ |
|
196
|
24 |
15 |
ref $closed{$tag} eq 'ARRAY' ? : |
|
198
|
15 |
24 |
if (not $re2) { } |
|
201
|
5 |
5 |
$in ? : |
|
205
|
0 |
15 |
if $in |
|
210
|
4 |
39 |
if (ref $re3 eq 'Regexp') { } |
|
|
39 |
0 |
elsif (ref $re3 eq 'CODE') { } |
|
236
|
2 |
0 |
if ($plugins{$plugin}) |
|
249
|
1 |
0 |
if ($plugins{$plugin}) |
|
265
|
0 |
0 |
if $override or not $namespaces{$namespace} |
|
274
|
0 |
0 |
if $override or not $plugins{$pluginname} |
|
293
|
0 |
6 |
if ($headers->{$id}) |
|
331
|
12 |
0 |
unless ($ln =~ /^\s/) |
|
332
|
10 |
2 |
if ($item) |
|
340
|
11 |
1 |
if ($nl ne $cl) |
|
342
|
19 |
4 |
if not $close and substr($cl, $i, 1) eq substr($nl, $i, 1) |
|
343
|
3 |
1 |
unless $close |
|
344
|
1 |
3 |
substr($cl, $i, 1) eq '#' ? : |
|
346
|
8 |
3 |
if $start == -1 |
|
347
|
3 |
8 |
if $close |
|
349
|
1 |
10 |
substr($nl, $i, 1) eq '#' ? : |
|
356
|
2 |
0 |
if ($item) |
|
359
|
2 |
0 |
if ($cl) |
|
361
|
0 |
7 |
substr($cl, $i, 1) eq '#' ? : |
|
376
|
0 |
11 |
unless $self->{'_links'} and $self->{'_links'}{$link} |
|
384
|
1 |
10 |
if ($class) |
|
420
|
1 |
0 |
if (ref $params eq 'ARRAY') { } |
|
422
|
0 |
1 |
if (@$params and ref $params->[0] eq 'HASH') { } |
|
431
|
0 |
1 |
unless $src |
|
433
|
0 |
1 |
if ($src =~ m[\Ahttps?://] and $self->{'image_filter'}) { } |
|
|
0 |
1 |
elsif ($self->{'image_mapper'}) { } |
|
439
|
0 |
1 |
unless $src |
|
442
|
0 |
1 |
if ($params->{'size'}) |
|
445
|
0 |
0 |
if ($w and $h) |
|
452
|
4 |
0 |
unless $params->{$attr} |
|
480
|
1 |
1 |
unless $paramstr |
|
482
|
1 |
0 |
unless ($paramstr =~ /\A\s*[\{\[]/) |
|
486
|
0 |
1 |
unless my $params = eval {
do {
&from_json($paramstr, {'utf8', 1})
}
} |