| line |
true |
false |
branch |
|
34
|
0 |
0 |
if ($request->display_datainfo) |
|
40
|
0 |
0 |
unless $info->{$key} |
|
56
|
0 |
0 |
unless defined $param and $param ne '' |
|
61
|
0 |
0 |
if (ref $value eq 'ARRAY') { } |
|
77
|
0 |
0 |
if (my(@extra) = $request->extra_datainfo_keys) |
|
81
|
0 |
0 |
unless defined $key |
|
83
|
0 |
0 |
unless defined $value |
|
87
|
0 |
0 |
if (ref $value and &reftype($value) eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $value and &reftype($value) eq 'ARRAY') { } |
|
112
|
0 |
0 |
if ($request->display_counts) |
|
119
|
0 |
0 |
if defined $counts->{'offset'} and $counts->{'offset'} > 0 |
|
124
|
0 |
0 |
if (my(@msgs) = $request->warnings) |
|
138
|
0 |
0 |
if ($request->{'summary_data'} and $request->{'summary_field_list'}) |
|
195
|
0 |
0 |
unless (ref $errors eq 'ARRAY') |
|
200
|
0 |
0 |
if (defined $warnings and !ref($warnings) eq 'ARRAY') |
|
206
|
0 |
0 |
if ref $errors eq 'ARRAY' and @$errors |
|
207
|
0 |
0 |
if ref $cautions eq 'ARRAY' and @$cautions |
|
208
|
0 |
0 |
if ref $warnings eq 'ARRAY' and @$warnings |
|
244
|
0 |
0 |
&reftype($field_list) && &reftype($field_list) eq 'ARRAY' ? : |
|
252
|
0 |
0 |
unless $f->{'always'} or defined $f->{'value'} or defined $record->{$field} and $record->{$field} ne '' |
|
258
|
0 |
0 |
if $f->{'dedup'} and defined $record->{$field} and defined $$record{$f->{'dedup'}} and $record->{$field} eq $$record{$f->{'dedup'}} |
|
263
|
0 |
0 |
if $f->{'if_field'} and not $$record{$f->{'if_field'}} |
|
268
|
0 |
0 |
if $f->{'not_field'} and $$record{$f->{'not_field'}} |
|
276
|
0 |
0 |
defined $record->{$field} ? : |
|
|
0 |
0 |
defined $f->{'value'} ? : |
|
284
|
0 |
0 |
if (defined $f->{'sub_record'}) { } |
|
|
0 |
0 |
elsif (ref $value eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($f->{'show_as_list'}) { } |
|
292
|
0 |
0 |
if (ref $value and &reftype($value) eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $value and &reftype($value) eq 'ARRAY') { } |
|
294
|
0 |
0 |
if $proc_list and @$proc_list |
|
296
|
0 |
0 |
if ($output_list and @$output_list) { } |
|
311
|
0 |
0 |
if ($proc_list and @$proc_list) |
|
315
|
0 |
0 |
if $proc_list |
|
319
|
0 |
0 |
if ($output_list and @$output_list) { } |
|
368
|
0 |
0 |
if (exists $record->{'hier_child'}) |
|
391
|
0 |
0 |
if &reftype($field_list) and &reftype($field_list) ne 'ARRAY' |
|
405
|
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) { } |
|
412
|
0 |
0 |
unless $field_list |
|
426
|
0 |
0 |
if (defined $value and $value ne '') |
|
475
|
0 |
0 |
unless defined $string and $string ne '' |
|
481
|
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' |
|
487
|
0 |
0 |
unless $string =~ /[^a-zA-Z0-9 _.,;:<>-]/ |