blib/lib/CGI/QuickForm.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 0 | 71 | 0.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
101 | 0 | 0 | 0 | $form{-'FIELDS'}[$i]{-'COLSPAN'} and $form{-'MULTI_COLUMN'} |
118 | 0 | 0 | 0 | $form{-'SIZE'} and not $$fieldref{-'size'} |
121 | 0 | 0 | 0 | $form{-'MAXLENGTH'} and not $$fieldref{-'maxlength'} |
126 | 0 | 0 | 0 | $form{-'ROWS'} and not $$fieldref{-'rows'} |
129 | 0 | 0 | 0 | $form{-'COLUMNS'} and not $$fieldref{-'columns'} |
136 | 0 | 0 | 0 | $form{-'CHECK'} and param() |
159 | 0 | 0 | 0 | $$fieldref{-'REQUIRED'} and not param($$fieldref{-'name'}) |
172 | 0 | 0 | 0 | not $$formref{-'INVALID'} and defined $$formref{-'VALIDATE'} |
221 | 0 | 0 | 0 | $invalid and defined $why |
225 | 0 | 0 | 0 | $invalid and not defined $why |
230 | 0 | 0 | 0 | defined $ENV{'GATEWAY_INTERFACE'} and $ENV{'GATEWAY_INTERFACE'} =~ /^CGI-Perl/ |
280 | 0 | 0 | 0 | $invalid and defined $why |
line | l | !l | condition |
---|---|---|---|
232 | 0 | 0 | script_name() || '' |
0 | 0 | path_info() || '' | |
265 | 0 | 0 | $field{-'COLSPAN'} ||= 2 |
291 | 0 | 0 | $$fieldref{-'name'} || 'Clear' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
73 | 0 | 0 | 0 | $form{-'USER_REQUIRED'} || $CGI::QuickForm::Translate{'en'}{-'REQUIRED'} |
75 | 0 | 0 | 0 | $form{-'USER_INVALID'} || $CGI::QuickForm::Translate{'en'}{-'INVALID'} |
98 | 0 | 0 | 0 | $form{-'FIELDS'}[$i]{"-STYLE_$style"} || $form{"-STYLE_$style"} |
110 | 0 | 0 | 0 | $i == 0 or $form{-'FIELDS'}[$i - 1]{-'END_ROW'} |
0 | 0 | 0 | $i == 0 or $form{-'FIELDS'}[$i - 1]{-'END_ROW'} or not $form{-'MULTI_COLUMN'} | |
114 | 0 | 0 | 0 | $i == $#{$form{-'FIELDS'};} or not $form{-'MULTI_COLUMN'} |
159 | 0 | 0 | 0 | $$fieldref{-'REQUIRED'} and not param($$fieldref{-'name'}) or not $valid |
211 | 0 | 0 | 0 | $$formref{-'INTRO'} || $CGI::QuickForm::Translate{$$formref{-'LANGUAGE'}}{-'INTRO'} |
253 | 0 | 0 | 0 | $type eq 'submit' or $type eq 'hidden' |