| line |
true |
false |
branch |
|
129
|
0 |
24 |
if ref $args ne 'HASH' |
|
133
|
0 |
24 |
unless $self->_init($args) |
|
217
|
1 |
69 |
unless defined $bbcode |
|
234
|
84 |
290 |
if ($input =~ m(^(\[/[^\]]+\]))s) { } |
|
|
100 |
190 |
elsif ($input =~ /^(\[[^\]]+\])/s) { } |
|
|
118 |
72 |
elsif ($input =~ /^([^\[]+)/s) { } |
|
|
3 |
69 |
elsif ($input =~ /^(.+)$/s) { } |
|
236
|
1 |
83 |
if ($$self{'_skip_nest'} ne '' and $end ne "[/$$self{'_skip_nest'}]" or $$self{'_in_code_block'} and $end ne '[/code]') { } |
|
247
|
1 |
99 |
if ($$self{'_in_code_block'}) { } |
|
269
|
69 |
0 |
unless $input |
|
273
|
67 |
2 |
$$self{'options'}{'stripscripts'} ? : |
|
280
|
9 |
90 |
if (_dont_nest($self, $tag) and $tag eq 'img') |
|
283
|
9 |
90 |
if ($$self{'_skip_nest'} eq $tag) |
|
287
|
3 |
96 |
if $tag eq 'code' |
|
294
|
6 |
117 |
if $$self{'options'}{'linebreaks'} and $$self{'_in_code_block'} == 0 |
|
304
|
0 |
83 |
if ("[/$$self{'_skip_nest'}]" eq $end and $$self{'_nest_count'} > 1) |
|
310
|
3 |
80 |
if $end eq '[/code]' |
|
317
|
2 |
202 |
unless (defined $item) |
|
318
|
4 |
2 |
if $_ |
|
323
|
5 |
197 |
if ("[$$self{'_skip_nest'}]" eq "$item") |
|
325
|
0 |
5 |
if $$self{'_nest_count_stack'} > 0 |
|
328
|
9 |
193 |
if "[/$$self{'_skip_nest'}]" eq $end and $$self{'_nest_count'} > 0 |
|
332
|
101 |
101 |
if ($item =~ /\[([^=\]]+).*\]/s) |
|
334
|
81 |
20 |
if ($tag and $end eq "[/$tag]") |
|
335
|
75 |
6 |
_is_allowed($self, $tag) ? : |
|
339
|
9 |
72 |
if defined $$self{'_skip_nest'} and $tag eq $$self{'_skip_nest'} |
|
363
|
75 |
0 |
if ($open =~ /\[([^=\]]+)=?([^\]]+)?]/) |
|
369
|
8 |
67 |
if ($tag eq 'quote') { } |
|
|
3 |
64 |
elsif ($tag eq 'code') { } |
|
|
8 |
56 |
elsif ($tag eq 'list') { } |
|
|
4 |
52 |
elsif ($tag eq 'email' || $tag eq 'url' and not $attr) { } |
|
|
24 |
28 |
elsif ($attr) { } |
|
370
|
6 |
2 |
$attr ? : |
|
392
|
75 |
372 |
if $_ eq $check |
|
400
|
34 |
311 |
if $_ eq $check |
|
423
|
4 |
4 |
if ($attr) { } |
|
424
|
2 |
2 |
if $attr =~ /^\d/ |
|
426
|
2 |
0 |
if $attr =~ /^\D/ |
|
449
|
8 |
7 |
if ($attr_val eq 'font-weight:bold' or $attr_val eq 'text-decoration:underline' or $attr_val eq 'font-style:italic' or $attr_val eq 'list-style-type') |
|
455
|
4 |
3 |
if (my($color) = $attr_val =~ /^color:(.*)/) |
|
460
|
0 |
4 |
if $color =~ /^#[a-fA-F\d]{6}$/ |
|
461
|
0 |
4 |
if $color =~ /^#[a-fA-F\d]{3}$/ |
|
462
|
4 |
0 |
if grep {$color eq $_;} @html_color |
|
465
|
2 |
1 |
if ($attr_val =~ /font-size:\d+px/) |