| line |
true |
false |
branch |
|
90
|
0 |
22 |
if (ref $param[0] eq 'HASH') { } |
|
102
|
22 |
0 |
unless $param{'noshortcut'} |
|
182
|
9 |
0 |
if (defined $attr_hr) { } |
|
188
|
0 |
9 |
if ($persist{$tag}) |
|
189
|
0 |
0 |
if ($attr{'name'} and my $value = $$param_hr{$attr{'name'}} and not $attr{'force'}) |
|
196
|
0 |
9 |
if ($label) { } |
|
207
|
56 |
14 |
unless UNIVERSAL::can(__PACKAGE__, $tag) |
|
217
|
7 |
0 |
unless UNIVERSAL::can(__PACKAGE__, $tag) |
|
235
|
0 |
0 |
if (@_) { } |
|
236
|
0 |
0 |
shift() ? : |
|
253
|
264 |
0 |
if (my($action, $tag) = $sub_start =~ /^(start|end)_([^:]+)$/) |
|
357
|
1 |
98 |
if (my $value = $attr_page{$attr}) |
|
360
|
0 |
1 |
if $attr eq "cache" |
|
371
|
0 |
0 |
unless (ref $href_ar eq "ARRAY") |
|
373
|
0 |
0 |
if (my $type_attr_value_ar = $attr_page{$type}) { } |
|
374
|
0 |
0 |
unless (ref $type_attr_value_ar eq "ARRAY") |
|
391
|
1 |
32 |
if (my $hr = $attr_page{'meta'}) { } |
|
421
|
0 |
33 |
if ($attr_page{'base'} or $attr_page{'target'}) |
|
423
|
0 |
0 |
if $attr_page{'base'} |
|
424
|
0 |
0 |
if $attr_page{'target'} |
|
432
|
0 |
33 |
if (my $style = $attr_page{'style'}) |
|
440
|
0 |
33 |
if (my $include_style = $attr_page{'include_style'}) |
|
454
|
0 |
33 |
if (my $author = $attr_page{'author'}) |
|
464
|
0 |
33 |
if (my $script = $attr_page{'script'}) |
|
470
|
0 |
33 |
if (my $include_script = $attr_page{'include_script'}) |
|
483
|
0 |
33 |
if (my $fn = $attr_page{'include'}) { } |
|
520
|
33 |
0 |
unless (@include and grep {m[.*?]i;} @include) |
|
521
|
0 |
33 |
if (defined $attr_page{'title'}) { } |
|
|
0 |
33 |
elsif (exists $attr_page{'title'}) { } |
|
546
|
0 |
33 |
if (my($heading_tag) = grep({$attr_page{$_};} "h1", "h2", "h3", "h4", "h5", "h6")) |
|
547
|
0 |
0 |
if $title |
|
548
|
0 |
0 |
if ($attr_page{'hr'}) |
|
584
|
0 |
0 |
unless (ref $param_ar eq "ARRAY") |
|
587
|
0 |
0 |
if ($WebDyne::HTML::Tiny::WEBDYNE_START_HTML_PARAM_STATIC) |
|
622
|
0 |
9 |
unless ref $_[0] eq "HASH" |
|
673
|
0 |
0 |
$_[0] ? : |
|
706
|
34 |
70 |
if (ref(my $meta_hr = $attr_hr->{'content'}) eq 'HASH') { } |
|
712
|
16 |
18 |
if (my $or = tied %{$meta_hr;}) { } |
|
725
|
63 |
49 |
if ((my($key, $value) = split(/=/, $name, 3)) == 2) { } |
|
730
|
30 |
33 |
if ($content) { } |
|
758
|
0 |
0 |
if (ref $attr_hr->{'href'} eq 'ARRAY') { } |
|
783
|
0 |
0 |
if ($attr{'src'}) { } |
|
789
|
0 |
0 |
unless (ref($script_ar = $attr{'src'}) eq "ARRAY") |
|
804
|
0 |
0 |
if ($src[1]) |
|
807
|
0 |
0 |
unless length $kv |
|
808
|
0 |
0 |
if ($kv =~ /^([^=]+)=(.*)$/) { } |
|
838
|
0 |
0 |
if (my $label = delete $attr{'label'}) { } |
|
881
|
0 |
0 |
ref $attr{$attr} eq 'ARRAY' ? : |
|
882
|
0 |
0 |
if $attr{$attr} |
|
889
|
0 |
0 |
if (ref $attr{'values'} eq "HASH") |
|
903
|
0 |
0 |
if ($attr_hr->{'name'} and my(@checked) = $cgi_or->param($attr_hr->{'name'}) and not $attr_hr->{'force'}) { } |
|
921
|
0 |
0 |
if ($attr_group{'default'} or $attr_group{'defaults'}) |
|
928
|
0 |
0 |
if ($tag eq "radio") |
|
932
|
0 |
0 |
if $attr_group{'checked'} |
|
941
|
0 |
0 |
$attr{'attributes'}{$value} ? : |
|
944
|
0 |
0 |
if $attr{'name'} |
|
949
|
0 |
0 |
if $attr_group{'checked'}{$value} |
|
950
|
0 |
0 |
if $attr_group{'disabled'}{$value} |
|
951
|
0 |
0 |
$attr{'labels'}{$value} ? : |
|
958
|
0 |
0 |
$attr{'linebreak'} ? : |
|
1009
|
0 |
0 |
if (my $value = $attr_hr->{'value'}) { } |
|
1010
|
0 |
0 |
if (my $name = $attr_hr->{'name'}) { } |
|
1032
|
0 |
0 |
if (my(@value) = $cgi_or->param($name)) |
|
1039
|
0 |
0 |
if (exists $param_hr->{$name} and $checked) { } |
|
|
0 |
0 |
elsif (exists $param_hr->{$name} and not $checked) { } |
|
1117
|
0 |
0 |
if (ref $attr_select{'values'} eq "HASH") |
|
1140
|
0 |
0 |
unless exists $attr_select{$attr} |
|
1142
|
0 |
0 |
if (ref $attr_select{$attr} eq 'ARRAY') { } |
|
1150
|
0 |
0 |
if ($attr eq 'disabled') { } |
|
1158
|
0 |
0 |
if (@values) { } |
|
1179
|
0 |
0 |
if ($attr_hr->{'name'} and my(@selected) = $cgi_or->param($attr_hr->{'name'}) and not $attr_hr->{'force'}) { } |
|
1195
|
0 |
0 |
if ($attr_option{'default'} or $attr_option{'defaults'}) |
|
1223
|
0 |
0 |
if $attr_select{'multiple'} |
|
1233
|
0 |
0 |
$attr_option{'attributes'}{$value} ? : |
|
1239
|
0 |
0 |
if $attr_option{'selected'}{$value} |
|
1240
|
0 |
0 |
if $attr_option{'disabled'}{$value} |
|
1241
|
0 |
0 |
$attr_option{'labels'}{$value} ? : |
|
1258
|
0 |
0 |
if ($label) { } |
|
1280
|
0 |
0 |
ref $attr_hr->{'values'} eq 'ARRAY' ? : |
|
1314
|
0 |
0 |
if ($attr{'name'} and my $entered = $$param_hr{$attr{'name'}} and not $attr{'force'}) |
|
1325
|
0 |
0 |
if ($label) { } |
|
1339
|
16 |
20 |
if (my($action, $tag) = $AUTOLOAD =~ /\:\:(start|end|open|close)_([^:]+)$/) |