| line |
!l |
l&&!r |
l&&r |
condition |
|
56
|
0 |
0 |
0 |
defined $param and $param ne '' |
|
87
|
0 |
0 |
0 |
ref $value and &reftype($value) eq 'HASH' |
|
|
0 |
0 |
0 |
ref $value and &reftype($value) eq 'ARRAY' |
|
119
|
0 |
0 |
0 |
defined $counts->{'offset'} and $counts->{'offset'} > 0 |
|
138
|
0 |
0 |
0 |
$request->{'summary_data'} and $request->{'summary_field_list'} |
|
200
|
0 |
0 |
0 |
defined $warnings and !ref($warnings) eq 'ARRAY' |
|
206
|
0 |
0 |
0 |
ref $errors eq 'ARRAY' and @$errors |
|
207
|
0 |
0 |
0 |
ref $cautions eq 'ARRAY' and @$cautions |
|
208
|
0 |
0 |
0 |
ref $warnings eq 'ARRAY' and @$warnings |
|
244
|
0 |
0 |
0 |
&reftype($field_list) && &reftype($field_list) eq 'ARRAY' |
|
252
|
0 |
0 |
0 |
defined $record->{$field} and $record->{$field} ne '' |
|
258
|
0 |
0 |
0 |
$f->{'dedup'} and defined $record->{$field} |
|
|
0 |
0 |
0 |
$f->{'dedup'} and defined $record->{$field} and defined $$record{$f->{'dedup'}} |
|
|
0 |
0 |
0 |
$f->{'dedup'} and defined $record->{$field} and defined $$record{$f->{'dedup'}} and $record->{$field} eq $$record{$f->{'dedup'}} |
|
263
|
0 |
0 |
0 |
$f->{'if_field'} and not $$record{$f->{'if_field'}} |
|
268
|
0 |
0 |
0 |
$f->{'not_field'} and $$record{$f->{'not_field'}} |
|
292
|
0 |
0 |
0 |
ref $value and &reftype($value) eq 'HASH' |
|
|
0 |
0 |
0 |
ref $value and &reftype($value) eq 'ARRAY' |
|
294
|
0 |
0 |
0 |
$proc_list and @$proc_list |
|
296
|
0 |
0 |
0 |
$output_list and @$output_list |
|
311
|
0 |
0 |
0 |
$proc_list and @$proc_list |
|
319
|
0 |
0 |
0 |
$output_list and @$output_list |
|
391
|
0 |
0 |
0 |
&reftype($field_list) and &reftype($field_list) ne 'ARRAY' |
|
405
|
0 |
0 |
0 |
&reftype($elt) and &reftype($elt) eq 'ARRAY' |
|
|
0 |
0 |
0 |
&reftype($elt) and &reftype($elt) eq 'HASH' |
|
426
|
0 |
0 |
0 |
defined $value and $value ne '' |
|
475
|
0 |
0 |
0 |
defined $string and $string ne '' |
|
481
|
0 |
0 |
0 |
defined $data_type && $data_type eq 'str' |
|
|
0 |
0 |
0 |
$string =~ qr/ ^ -? (?: [1-9][0-9]* | 0 ) (?: \. [0-9]+ )? (?: [Ee] -? [0-9]+ )? $ /x and not defined $data_type && $data_type eq 'str' |