| line |
true |
false |
branch |
|
22
|
1 |
0 |
unless eval 'use Time::HiRes qw(time)' |
|
157
|
0 |
1 |
unless $self->compile_init |
|
292
|
0 |
2 |
if ($attr_hr->{'name'} eq 'WebDyne') |
|
297
|
0 |
0 |
unless defined $value |
|
309
|
0 |
0 |
unless $self->delete_node({'data_ar', $data_ar, 'node_ar', $tag_ar}) |
|
318
|
14 |
0 |
keys %meta ? : |
|
323
|
2 |
12 |
if $param_hr->{'stage0'} |
|
329
|
12 |
0 |
if keys %meta |
|
330
|
9 |
3 |
if (my $perl_ar = $meta{'perl'} and not $param_hr->{'noperl'}) |
|
336
|
0 |
9 |
unless $self->perl_init($perl_ar, $perl_debug_ar) |
|
344
|
2 |
10 |
if $param_hr->{'stage1'} |
|
350
|
10 |
0 |
unless (@filter) |
|
352
|
0 |
10 |
if $filter |
|
355
|
0 |
10 |
if (@filter and not $param_hr->{'nofilter'}) |
|
359
|
0 |
0 |
unless eval "require $filter" |
|
361
|
0 |
0 |
unless UNIVERSAL::can($filter, 'filter') |
|
376
|
0 |
10 |
if $param_hr->{'stage2'} |
|
387
|
0 |
10 |
if $param_hr->{'stage3'} |
|
393
|
1 |
9 |
unless (grep {ref $_;} @{$data_ar;}) |
|
400
|
10 |
0 |
keys %meta ? : |
|
405
|
0 |
10 |
if $param_hr->{'stage4'} |
|
412
|
0 |
10 |
if (ref $meta{'cache'} eq 'CODE') |
|
417
|
0 |
10 |
if ($dest_cn) { } |
|
420
|
0 |
0 |
unless (eval {
do {
Storable::lock_store(\@container, $dest_cn)
}
}) |
|
434
|
0 |
0 |
unless $Package{'warn_write'}++ |
|
446
|
0 |
10 |
if $cache_cr |
|
487
|
0 |
10 |
unless keys %{$attr_hr;} |
|
489
|
10 |
0 |
$html_attr ? : |
|
514
|
1 |
0 |
if (UNIVERSAL::can('CGI', '_tag_func')) |
|
566
|
132 |
44 |
if ($data_ar->[$WebDyne::Compile::WEBDYNE_NODE_CHLD_IX]) |
|
582
|
164 |
55 |
if (ref $data_chld_ar) |
|
589
|
42 |
122 |
if (ref $data_chld_xv eq 'SCALAR') |
|
628
|
0 |
176 |
if $html_tag =~ /~comment$/ |
|
633
|
18 |
158 |
if $subst_fg |
|
645
|
0 |
176 |
if ($static_fg and $subst_fg) |
|
650
|
0 |
0 |
if grep {$_ eq '$';} @subst_oper |
|
664
|
105 |
71 |
if (not $WebDyne::Compile::CGI_TAG_WEBDYNE{$html_tag} || $subst_fg or $static_fg) |
|
675
|
45 |
60 |
unless ($ref_fv) |
|
685
|
0 |
45 |
if ($WebDyne::Compile::CGI_TAG_WEBDYNE{$html_tag}) |
|
702
|
29 |
16 |
$data_ar->[$WebDyne::Compile::WEBDYNE_NODE_CHLD_IX] ? : |
|
742
|
3 |
9 |
if (ref $data_ar eq 'SCALAR') |
|
787
|
105 |
28 |
if ($data_ar->[$WebDyne::Compile::WEBDYNE_NODE_CHLD_IX]) |
|
794
|
105 |
0 |
$data_ar->[$WebDyne::Compile::WEBDYNE_NODE_CHLD_IX] ? : |
|
806
|
122 |
66 |
if (ref $data_chld_ar) |
|
843
|
18 |
115 |
if $subst_fg |
|
850
|
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) { } |
|
857
|
51 |
0 |
$data_uppr_ar->[$WebDyne::Compile::WEBDYNE_NODE_CHLD_IX] ? : |
|
869
|
138 |
159 |
unless ref $data_chld_ar |
|
879
|
108 |
51 |
unless $data_chld_ar eq $data_ar |
|
891
|
0 |
102 |
unless eval {
do {
$cgi_or->$_(grep({$_;} $attr_hr))
}
} |
|
928
|
51 |
0 |
$data_uppr_ar->[$WebDyne::Compile::WEBDYNE_NODE_CHLD_IX] ? : |
|
946
|
79 |
548 |
if (@data_uppr and not ref $data_chld_ar and not ref $data_uppr[$#data_uppr]) { } |
|
981
|
0 |
0 |
$data_uppr_ar->[$WebDyne::Compile::WEBDYNE_NODE_CHLD_IX] ? : |
|
984
|
0 |
0 |
if ($data_uppr_ar->[$WebDyne::Compile::WEBDYNE_NODE_CHLD_IX][$ix] eq $data_ar) |
|
1005
|
0 |
22 |
unless eval {
do {
$cgi_or->$_(grep({$_;} $attr_hr))
}
} |
|
1017
|
11 |
0 |
$data_ar->[$WebDyne::Compile::WEBDYNE_NODE_CHLD_IX] ? : |
|
1034
|
21 |
100 |
if ($data_chld_ix and not ref $data[$data_chld_ix] and not ref $data[$data_chld_ix - 1]) { } |
|
1065
|
11 |
1 |
ref $data_ar ? : |
|
1120
|
0 |
70 |
unless (UNIVERSAL::can('CGI', $html_tag) or $WebDyne::Compile::CGI_TAG_WEBDYNE{$html_tag}) |
|
1127
|
91 |
122 |
if (my(%attr) = map({$_, $html_or->{$_};} grep({not /^_/;} keys %{$html_or;}))) { } |
|
1137
|
9 |
82 |
if ($html_or->{'_code'} and $attr{'perl'}) { } |
|
1170
|
199 |
104 |
if (ref $html_child_or) { } |
|
1182
|
190 |
9 |
if ($data_ar->[$WebDyne::Compile::WEBDYNE_NODE_NAME_IX]) |
|
1193
|
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 |