| line |
true |
false |
branch |
|
69
|
0 |
0 |
if $form{-'LANGUAGE'} eq 'english' |
|
70
|
0 |
0 |
if $form{-'BUTTONLABEL'} |
|
72
|
0 |
0 |
if ($form{-'LANGUAGE'} eq 'user') |
|
84
|
0 |
0 |
if $form{"-STYLE_$style"} |
|
87
|
0 |
0 |
if $form{'-STYLE_BUTTONS'} =~ /^ CENT(?:ER|RE)$/io |
|
90
|
0 |
0 |
if $form{-'TABLE_OPTIONS'} |
|
99
|
0 |
0 |
$value ? : |
|
101
|
0 |
0 |
if $form{-'FIELDS'}[$i]{-'COLSPAN'} and $form{-'MULTI_COLUMN'} |
|
105
|
0 |
0 |
unless $$fieldref{-'LABEL'} |
|
106
|
0 |
0 |
unless $$fieldref{-'name'} |
|
107
|
0 |
0 |
unless $$fieldref{-'TYPE'} |
|
108
|
0 |
0 |
if $form{-'FIELDS'}[$i]{-'TYPE'} eq 'filefield' |
|
110
|
0 |
0 |
if $i == 0 or $form{-'FIELDS'}[$i - 1]{-'END_ROW'} or not $form{-'MULTI_COLUMN'} |
|
114
|
0 |
0 |
if $i == $#{$form{-'FIELDS'};} or not $form{-'MULTI_COLUMN'} |
|
116
|
0 |
0 |
if $$fieldref{-'REQUIRED'} |
|
117
|
0 |
0 |
if ($form{-'FIELDS'}[$i]{-'TYPE'} eq 'textfield') { } |
|
|
0 |
0 |
elsif ($form{-'FIELDS'}[$i]{-'TYPE'} eq 'textarea') { } |
|
118
|
0 |
0 |
if ($form{-'SIZE'} and not $$fieldref{-'size'}) |
|
121
|
0 |
0 |
if ($form{-'MAXLENGTH'} and not $$fieldref{-'maxlength'}) |
|
126
|
0 |
0 |
if ($form{-'ROWS'} and not $$fieldref{-'rows'}) |
|
129
|
0 |
0 |
if ($form{-'COLUMNS'} and not $$fieldref{-'columns'}) |
|
136
|
0 |
0 |
if ($form{-'CHECK'} and param()) { } |
|
157
|
0 |
0 |
defined $$fieldref{-'VALIDATE'} ? : |
|
159
|
0 |
0 |
$valid ? : |
|
|
0 |
0 |
if $$fieldref{-'REQUIRED'} and not param($$fieldref{-'name'}) or not $valid |
|
172
|
0 |
0 |
if (not $$formref{-'INVALID'} and defined $$formref{-'VALIDATE'}) |
|
180
|
0 |
0 |
if ($$formref{-'INVALID'}) { } |
|
187
|
0 |
0 |
if defined $$fieldref{-'CLEAN'} |
|
200
|
0 |
0 |
delete $$formref{-'SPACE'} ? : |
|
202
|
0 |
0 |
if ($$formref{-'HEADER'}) { } |
|
203
|
0 |
0 |
if (ref $$formref{-'HEADER'} eq 'CODE') { } |
|
221
|
0 |
0 |
if $invalid and defined $why |
|
223
|
0 |
0 |
if $$formref{-'REQUIRED'} |
|
225
|
0 |
0 |
if $invalid and not defined $why |
|
228
|
0 |
0 |
$$formref{-'MULTIPART'} ? : |
|
230
|
0 |
0 |
if (defined $ENV{'GATEWAY_INTERFACE'} and $ENV{'GATEWAY_INTERFACE'} =~ /^CGI-Perl/) { } |
|
252
|
0 |
0 |
if $type eq 'hidden' |
|
253
|
0 |
0 |
if $type eq 'submit' or $type eq 'hidden' |
|
255
|
0 |
0 |
$required ? : |
|
257
|
0 |
0 |
$invalid ? : |
|
264
|
0 |
0 |
if ($field{-'HEADLINE'}) |
|
268
|
0 |
0 |
if delete $field{-'START_ROW'} |
|
270
|
0 |
0 |
unless ($field{-'HEADLINE'}) |
|
272
|
0 |
0 |
if $field{-'DESC'} |
|
280
|
0 |
0 |
if $invalid and defined $why |
|
283
|
0 |
0 |
if $endrow |
|
286
|
0 |
0 |
$$formref{-'STYLE_BUTTONS'} eq 'center' ? : |
|
290
|
0 |
0 |
if ($$fieldref{-'DEFAULTS'}) { } |
|
298
|
0 |
0 |
$$formref{-'STYLE_BUTTONS'} eq 'center' ? : |
|
309
|
0 |
0 |
if ($$formref{-'FOOTER'}) { } |
|
310
|
0 |
0 |
if (ref $$formref{-'FOOTER'} eq 'CODE') { } |