| line |
true |
false |
branch |
|
47
|
0 |
0 |
if (my $h = $opts{'handlers'}) |
|
91
|
0 |
0 |
if ($what) { } |
|
96
|
0 |
0 |
if (my $construct = $what->can('new')) |
|
144
|
0 |
0 |
if ($$CL =~ /^\s*#/) |
|
153
|
0 |
0 |
if ($hit) { } |
|
155
|
0 |
0 |
if ($text =~ s/(\\+)$//) |
|
159
|
0 |
0 |
if ($n % 2) |
|
165
|
0 |
0 |
if ($hit eq '{') { } |
|
|
0 |
0 |
elsif ($hit eq '[') { } |
|
|
0 |
0 |
elsif ($hit eq '}') { } |
|
|
0 |
0 |
elsif ($hit eq ']' or $hit eq ']{') { } |
|
|
0 |
0 |
elsif ($hit eq "\n") { } |
|
168
|
0 |
0 |
unless $escaped |
|
175
|
0 |
0 |
if ($escaped) { } |
|
|
0 |
0 |
elsif ($bare) { } |
|
183
|
0 |
0 |
unless my $guts = pop @opened |
|
188
|
0 |
0 |
if ($$CL =~ s/#([\.\w]+);//) |
|
189
|
0 |
0 |
unless $1 eq $tag |
|
194
|
0 |
0 |
if ($in_att) { } |
|
202
|
0 |
0 |
if ($hit eq ']{') { } |
|
204
|
0 |
0 |
if ($$CL =~ s/^\{\{(\n?)//) { } |
|
228
|
0 |
0 |
if ($in_att) { } |
|
233
|
0 |
0 |
if ($escaped) { } |
|
243
|
0 |
0 |
unless my($tag, $br) = $hit =~ /^(.*)([\[\{])/ |
|
250
|
0 |
0 |
if ($br eq '[') { } |
|
256
|
0 |
0 |
if ($$CL =~ s/^\{\{(\n?)//) { } |
|
280
|
0 |
0 |
if ($$CL =~ s/^\\\s+//) |
|
281
|
0 |
0 |
if $$CL eq '' |
|
303
|
0 |
0 |
if ($tag =~ s/^\.//) |
|
305
|
0 |
0 |
if (my $hook = $$self{'hooks'}{$tag}) |
|
309
|
0 |
0 |
if (defined $string) { } |
|
315
|
0 |
0 |
$atts ? : |
|
330
|
0 |
0 |
if ($tag =~ s/^\.//) |
|
332
|
0 |
0 |
if (my $hook = $$self{'hooks'}{$tag}) |
|
336
|
0 |
0 |
$atts ? : |
|
350
|
0 |
0 |
if ($tag =~ s/^\.//) |
|
365
|
0 |
0 |
unless $text |
|
392
|
0 |
0 |
unless defined $proto |
|
393
|
0 |
0 |
unless $proto =~ /^;?\$\$?$/ |
|
395
|
0 |
0 |
unless (@and) |
|
396
|
0 |
0 |
unless $proto =~ /^;/ |
|
403
|
0 |
0 |
if ($tag =~ s/^x\.//) { } |
|
405
|
0 |
0 |
unless my $handler = $$self{'handlers'}{$name} |
|
407
|
0 |
0 |
unless my $ref = $handler->can($method) |
|
412
|
0 |
0 |
unless $ref = $handler->can($method) |
|
419
|
0 |
0 |
unless my $method = $self->can('do_' . $tag) |
|
479
|
0 |
0 |
unless my $out_fh = $self->out_fh |
|
495
|
0 |
0 |
unless my $filename = $atts->get('src') |
|
508
|
0 |
0 |
unless @_ == 2 |
|
510
|
0 |
0 |
unless my $opt = $atts->get('id') |
|
541
|
0 |
0 |
unless my $string = $types{$opt} |
|
568
|
0 |
0 |
if @atts % 2 |
|
589
|
0 |
0 |
unless @ans |
|
590
|
0 |
0 |
@ans == 1 ? : |
|
605
|
0 |
0 |
if ($$atts[$i] eq $name) |
|
622
|
0 |
0 |
if ($$atts[$i] eq $n) |
|
648
|
0 |
0 |
unless @atts |
|
671
|
0 |
0 |
unless my $n = $short{$f} |
|
672
|
0 |
0 |
if $did{$f}++ |