| line |
true |
false |
branch |
|
22
|
1 |
0 |
unless eval 'use Time::HiRes qw(time)' |
|
148
|
0 |
1 |
unless $self->compile_init |
|
283
|
0 |
2 |
if ($attr_hr->{'name'} eq 'WebDyne') |
|
288
|
0 |
0 |
unless defined $value |
|
300
|
0 |
0 |
unless $self->delete_node({'data_ar', $data_ar, 'node_ar', $tag_ar}) |
|
309
|
14 |
0 |
keys %meta ? : |
|
314
|
2 |
12 |
if $param_hr->{'stage0'} |
|
320
|
12 |
0 |
if keys %meta |
|
321
|
9 |
3 |
if (my $perl_ar = $meta{'perl'} and not $param_hr->{'noperl'}) |
|
327
|
0 |
9 |
unless $self->perl_init($perl_ar, $perl_debug_ar) |
|
335
|
2 |
10 |
if $param_hr->{'stage1'} |
|
341
|
10 |
0 |
unless (@filter) |
|
343
|
0 |
10 |
if $filter |
|
346
|
0 |
10 |
if (@filter and not $param_hr->{'nofilter'}) |
|
350
|
0 |
0 |
unless eval "require $filter" |
|
352
|
0 |
0 |
unless UNIVERSAL::can($filter, 'filter') |
|
367
|
0 |
10 |
if $param_hr->{'stage2'} |
|
378
|
0 |
10 |
if $param_hr->{'stage3'} |
|
384
|
1 |
9 |
unless (grep {ref $_;} @{$data_ar;}) |
|
391
|
10 |
0 |
keys %meta ? : |
|
396
|
0 |
10 |
if $param_hr->{'stage4'} |
|
403
|
0 |
10 |
if (ref $meta{'cache'} eq 'CODE') |
|
408
|
0 |
10 |
if ($dest_cn) { } |
|
411
|
0 |
0 |
unless (eval {
do {
Storable::lock_store(\@container, $dest_cn)
}
}) |
|
425
|
0 |
0 |
unless $Package{'warn_write'}++ |
|
437
|
0 |
10 |
if $cache_cr |
|
478
|
0 |
10 |
unless keys %{$attr_hr;} |
|
480
|
10 |
0 |
$html_attr ? : |
|
544
|
132 |
44 |
if ($data_ar->[$WebDyne::Compile::WEBDYNE_NODE_CHLD_IX]) |
|
560
|
164 |
55 |
if (ref $data_chld_ar) |
|
567
|
42 |
122 |
if (ref $data_chld_xv eq 'SCALAR') |
|
606
|
0 |
176 |
if $html_tag =~ /~comment$/ |
|
611
|
18 |
158 |
if $subst_fg |
|
623
|
0 |
176 |
if ($static_fg and $subst_fg) |
|
628
|
0 |
0 |
if grep {$_ eq '$';} @subst_oper |
|
642
|
105 |
71 |
if (not $WebDyne::Compile::CGI_TAG_WEBDYNE{$html_tag} || $subst_fg or $static_fg) |
|
653
|
45 |
60 |
unless ($ref_fv) |
|
663
|
0 |
45 |
if ($WebDyne::Compile::CGI_TAG_WEBDYNE{$html_tag}) |
|
680
|
29 |
16 |
$data_ar->[$WebDyne::Compile::WEBDYNE_NODE_CHLD_IX] ? : |
|
720
|
3 |
9 |
if (ref $data_ar eq 'SCALAR') |
|
765
|
105 |
28 |
if ($data_ar->[$WebDyne::Compile::WEBDYNE_NODE_CHLD_IX]) |
|
772
|
105 |
0 |
$data_ar->[$WebDyne::Compile::WEBDYNE_NODE_CHLD_IX] ? : |
|
784
|
122 |
66 |
if (ref $data_chld_ar) |
|
821
|
18 |
115 |
if $subst_fg |
|
828
|
51 |
82 |
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 |
82 |
elsif ($WebDyne::Compile::CGI_TAG_WEBDYNE{$html_tag} and $data_uppr_ar and $static_fg) { } |
|
|
11 |
71 |
elsif (not $data_uppr_ar) { } |
|
835
|
51 |
0 |
$data_uppr_ar->[$WebDyne::Compile::WEBDYNE_NODE_CHLD_IX] ? : |
|
847
|
138 |
159 |
unless ref $data_chld_ar |
|
857
|
108 |
51 |
unless $data_chld_ar eq $data_ar |
|
869
|
0 |
102 |
unless eval {
do {
$cgi_or->$_(grep({$_;} $attr_hr))
}
} |
|
906
|
51 |
0 |
$data_uppr_ar->[$WebDyne::Compile::WEBDYNE_NODE_CHLD_IX] ? : |
|
924
|
79 |
548 |
if (@data_uppr and not ref $data_chld_ar and not ref $data_uppr[$#data_uppr]) { } |
|
959
|
0 |
0 |
$data_uppr_ar->[$WebDyne::Compile::WEBDYNE_NODE_CHLD_IX] ? : |
|
962
|
0 |
0 |
if ($data_uppr_ar->[$WebDyne::Compile::WEBDYNE_NODE_CHLD_IX][$ix] eq $data_ar) |
|
983
|
0 |
22 |
unless eval {
do {
$cgi_or->$_(grep({$_;} $attr_hr))
}
} |
|
995
|
11 |
0 |
$data_ar->[$WebDyne::Compile::WEBDYNE_NODE_CHLD_IX] ? : |
|
1012
|
21 |
100 |
if ($data_chld_ix and not ref $data[$data_chld_ix] and not ref $data[$data_chld_ix - 1]) { } |
|
1043
|
11 |
1 |
ref $data_ar ? : |
|
1098
|
0 |
70 |
unless (UNIVERSAL::can('CGI', $html_tag) or $WebDyne::Compile::CGI_TAG_WEBDYNE{$html_tag}) |
|
1105
|
91 |
122 |
if (my(%attr) = map({$_, $html_or->{$_};} grep({not /^_/;} keys %{$html_or;}))) { } |
|
1115
|
9 |
82 |
if ($html_or->{'_code'} and $attr{'perl'}) { } |
|
1148
|
199 |
104 |
if (ref $html_child_or) { } |
|
1160
|
190 |
9 |
if ($data_ar->[$WebDyne::Compile::WEBDYNE_NODE_NAME_IX]) |
|
1171
|
0 |
39 |
unless $html_child_or =~ /^\s*$/ and $html_tag ne 'pre' and $html_tag ne 'textarea' and not $WebDyne::Compile::WEBDYNE_COMPILE_NO_SPACE_COMPACTING |