| line |
true |
false |
branch |
|
34
|
0 |
0 |
if ($request->display_datainfo) |
|
40
|
0 |
0 |
unless $info->{$key} |
|
64
|
0 |
0 |
unless defined $param and $param ne '' |
|
69
|
0 |
0 |
if (ref $value eq 'ARRAY') { } |
|
88
|
0 |
0 |
if ($request->display_counts) |
|
95
|
0 |
0 |
if defined $counts->{'offset'} and $counts->{'offset'} > 0 |
|
100
|
0 |
0 |
if (my(@msgs) = $request->warnings) |
|
114
|
0 |
0 |
if ($request->{'summary_data'} and $request->{'summary_field_list'}) |
|
171
|
0 |
0 |
unless (ref $errors eq 'ARRAY') |
|
176
|
0 |
0 |
if (defined $warnings and !ref($warnings) eq 'ARRAY') |
|
182
|
0 |
0 |
if ref $errors eq 'ARRAY' and @$errors |
|
183
|
0 |
0 |
if ref $cautions eq 'ARRAY' and @$cautions |
|
184
|
0 |
0 |
if ref $warnings eq 'ARRAY' and @$warnings |
|
220
|
0 |
0 |
&reftype($field_list) && &reftype($field_list) eq 'ARRAY' ? : |
|
228
|
0 |
0 |
unless $f->{'always'} or defined $f->{'value'} or defined $record->{$field} and $record->{$field} ne '' |
|
234
|
0 |
0 |
if $f->{'dedup'} and defined $record->{$field} and defined $$record{$f->{'dedup'}} and $record->{$field} eq $$record{$f->{'dedup'}} |
|
239
|
0 |
0 |
if $f->{'if_field'} and not $$record{$f->{'if_field'}} |
|
244
|
0 |
0 |
if $f->{'not_field'} and $$record{$f->{'not_field'}} |
|
252
|
0 |
0 |
defined $record->{$field} ? : |
|
|
0 |
0 |
defined $f->{'value'} ? : |
|
260
|
0 |
0 |
if (defined $f->{'sub_record'}) { } |
|
|
0 |
0 |
elsif (ref $value eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($f->{'show_as_list'}) { } |
|
268
|
0 |
0 |
if (ref $value and &reftype($value) eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $value and &reftype($value) eq 'ARRAY') { } |
|
270
|
0 |
0 |
if $proc_list and @$proc_list |
|
272
|
0 |
0 |
if ($output_list and @$output_list) { } |
|
287
|
0 |
0 |
if ($proc_list and @$proc_list) |
|
291
|
0 |
0 |
if $proc_list |
|
295
|
0 |
0 |
if ($output_list and @$output_list) { } |
|
344
|
0 |
0 |
if (exists $record->{'hier_child'}) |
|
367
|
0 |
0 |
if &reftype($field_list) and &reftype($field_list) ne 'ARRAY' |
|
381
|
0 |
0 |
if (&reftype($elt) and &reftype($elt) eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (&reftype($elt) and &reftype($elt) eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $elt) { } |
|
388
|
0 |
0 |
unless $field_list |
|
402
|
0 |
0 |
if (defined $value and $value ne '') |
|
451
|
0 |
0 |
unless defined $string and $string ne '' |
|
457
|
0 |
0 |
if $string =~ qr/ ^ -? (?: [1-9][0-9]* | 0 ) (?: \. [0-9]+ )? (?: [Ee] -? [0-9]+ )? $ /x and not defined $data_type && $data_type eq 'str' |
|
463
|
0 |
0 |
unless $string =~ /[^a-zA-Z0-9 _.,;:<>-]/ |