| line |
true |
false |
branch |
|
75
|
0 |
5 |
if $@ |
|
88
|
0 |
2 |
ref $opt[0] eq 'HASH' ? : |
|
137
|
0 |
5 |
unless $self->compile_init |
|
210
|
0 |
36 |
exists $param_hr->{'store_comments'} ? : |
|
219
|
0 |
36 |
exists $param_hr->{'ignore_ignorable_whitespace'} ? : |
|
223
|
0 |
36 |
exists $param_hr->{'no_space_compacting'} ? : |
|
238
|
0 |
36 |
exists $param_hr->{'p_strict'} ? : |
|
243
|
0 |
36 |
exists $param_hr->{'implicit_body_p_tag'} ? : |
|
266
|
0 |
36 |
if (errstr()) |
|
288
|
0 |
36 |
unless $tree_or->elementify |
|
297
|
28 |
8 |
$param_hr->{'nomanifest'} ? : |
|
333
|
1 |
112 |
if ($attr_hr->{'name'} =~ /^webdyne$/i) { } |
|
|
1 |
111 |
elsif (ref $attr_hr->{'content'} eq 'HASH') { } |
|
338
|
0 |
1 |
unless defined $value |
|
344
|
0 |
1 |
if ($name eq "cache") |
|
353
|
0 |
1 |
unless $self->delete_node({"data_ar", $data_ar, "node_ar", $tag_ar}) |
|
360
|
1 |
0 |
if ($meta_key =~ /^webdyne$/i) |
|
365
|
0 |
1 |
unless defined $value |
|
367
|
0 |
1 |
if ($name eq "cache") |
|
380
|
1 |
107 |
if (my $value = $$html_tiny_or{"_$attr"}) |
|
390
|
1 |
35 |
if ($compact_tag) |
|
411
|
36 |
0 |
keys %meta ? : |
|
416
|
4 |
32 |
if $param_hr->{'stage0'} |
|
422
|
32 |
0 |
if keys %meta |
|
423
|
2 |
30 |
if (my $perl_ar = $meta{'perl'} and not $param_hr->{'noperl'}) |
|
429
|
0 |
2 |
unless $self->perl_init($perl_ar, $perl_debug_ar) |
|
437
|
4 |
28 |
if $param_hr->{'stage1'} |
|
443
|
28 |
0 |
unless (@filter) |
|
445
|
0 |
28 |
if $filter |
|
448
|
0 |
28 |
if (@filter and not $param_hr->{'nofilter'}) |
|
452
|
0 |
0 |
unless eval "require $filter" |
|
454
|
0 |
0 |
unless UNIVERSAL::can($filter, "filter") |
|
464
|
4 |
24 |
if $param_hr->{'stage2'} |
|
475
|
4 |
20 |
if $param_hr->{'stage3'} or $param_hr->{'opt1'} |
|
486
|
4 |
16 |
if $param_hr->{'stage4'} or $param_hr->{'opt2'} |
|
492
|
5 |
11 |
unless (grep {ref $_;} @{$data_ar;}) |
|
499
|
16 |
0 |
keys %meta ? : |
|
504
|
4 |
12 |
if $param_hr->{'stage5'} |
|
511
|
0 |
12 |
if (ref $meta{'cache'} eq "CODE") |
|
516
|
0 |
12 |
if ($dest_cn) { } |
|
519
|
0 |
0 |
unless (eval {
do {
Storable::lock_store(\@container, $dest_cn)
}
}) |
|
533
|
0 |
0 |
unless $Package{'warn_write'}++ |
|
545
|
0 |
12 |
if $cache_cr |
|
552
|
8 |
4 |
unless $param_hr->{'notimestamp'} |
|
554
|
8 |
4 |
unless $param_hr->{'notimestamp'} |
|
631
|
134 |
94 |
if ($data_ar->[2]) |
|
647
|
204 |
54 |
if (ref $data_chld_ar) |
|
654
|
151 |
53 |
if (ref $data_chld_xv eq "SCALAR") |
|
686
|
1 |
227 |
if $html_tag =~ /~comment$/ |
|
691
|
1 |
227 |
if $subst_fg |
|
703
|
0 |
228 |
if ($static_fg and $subst_fg) |
|
708
|
0 |
0 |
if grep {$_ eq "\$";} @subst_oper |
|
721
|
212 |
16 |
if (not $WebDyne::Compile::CGI_TAG_WEBDYNE{$html_tag} || $WebDyne::Compile::CGI_TAG_FORM{$html_tag} || $subst_fg or $static_fg) { } |
|
735
|
160 |
52 |
unless ($ref_fv) |
|
745
|
0 |
160 |
if ($WebDyne::Compile::CGI_TAG_WEBDYNE{$html_tag}) { } |
|
766
|
81 |
79 |
$data_ar->[2] ? : |
|
839
|
9 |
15 |
if (ref $data_ar eq "SCALAR") |
|
885
|
45 |
13 |
if ($data_ar->[2]) |
|
892
|
45 |
0 |
$data_ar->[2] ? : |
|
904
|
45 |
40 |
if (ref $data_chld_ar) |
|
935
|
1 |
57 |
if $subst_fg |
|
942
|
31 |
27 |
if (not $WebDyne::Compile::CGI_TAG_WEBDYNE{$html_tag} || $WebDyne::Compile::CGI_TAG_IMPLICIT{$html_tag} and $data_uppr_ar and not $subst_fg) { } |
|
|
0 |
27 |
elsif ($WebDyne::Compile::CGI_TAG_WEBDYNE{$html_tag} and $data_uppr_ar and $static_fg) { } |
|
|
12 |
15 |
elsif (not $data_uppr_ar and $html_tag) { } |
|
|
1 |
14 |
elsif (not $data_uppr_ar || $html_tag) { } |
|
950
|
31 |
0 |
$data_uppr_ar->[2] ? : |
|
962
|
27 |
32 |
unless ref $data_chld_ar |
|
972
|
1 |
31 |
unless $data_chld_ar eq $data_ar |
|
985
|
0 |
62 |
unless eval {
do {
$html_tiny_or->$_(grep({$_;} $attr_hr))
}
} |
|
1024
|
31 |
0 |
$data_uppr_ar->[2] ? : |
|
1042
|
76 |
96 |
if (@data_uppr and not ref $data_chld_ar and not ref $data_uppr[$#data_uppr]) { } |
|
1077
|
0 |
0 |
$data_uppr_ar->[2] ? : |
|
1080
|
0 |
0 |
if ($data_uppr_ar->[2][$ix] eq $data_ar) |
|
1103
|
0 |
24 |
unless eval {
do {
$html_tiny_or->$_(grep({$_;} $attr_hr))
}
} |
|
1115
|
12 |
0 |
$data_ar->[2] ? : |
|
1134
|
24 |
38 |
if ($data_chld_ix and not ref $data[$data_chld_ix] and not ref $data[$data_chld_ix - 1]) { } |
|
1179
|
13 |
7 |
if (ref $data_ar) { } |
|
1242
|
198 |
175 |
if (my(%attr) = map({$_, $html_or->{$_};} grep({not /^_/;} keys %{$html_or;}))) { } |
|
1252
|
16 |
182 |
if ($html_or->{'_code'} and $attr{'perl'}) { } |
|
1285
|
337 |
84 |
if (ref $html_child_or) { } |
|
1297
|
321 |
16 |
if ($data_ar->[0]) |
|
1308
|
0 |
0 |
unless $html_child_or =~ /^\s*$/ and $html_tag ne "pre" and $html_tag ne "textarea" and not $WebDyne::Compile::WEBDYNE_COMPILE_NO_SPACE_COMPACTING |