| line |
true |
false |
branch |
|
102
|
0 |
0 |
$params->{'show'} ? : |
|
104
|
0 |
0 |
if ($diag eq 'fields') { } |
|
|
0 |
0 |
elsif ($diag eq 'digest') { } |
|
144
|
0 |
0 |
unless ($DIAG_PARAM{$key} or $FIELD_PARAM{$key}) |
|
151
|
0 |
0 |
if $bad_param |
|
157
|
0 |
0 |
if ($query_vocab and not $ds->{'vocab'}{$query_vocab}) |
|
165
|
0 |
0 |
if $query_vocab |
|
166
|
0 |
0 |
if $query_name |
|
167
|
0 |
0 |
if $query_field |
|
177
|
0 |
0 |
unless ref $output_list eq 'ARRAY' |
|
187
|
0 |
0 |
unless ref $f eq 'HASH' and $f->{'output'} |
|
192
|
0 |
0 |
if ($query_field) |
|
194
|
0 |
0 |
unless $f->{'output'} =~ /$query_field/ |
|
202
|
0 |
0 |
if ($query_vocab) { } |
|
205
|
0 |
0 |
if $ds->{'vocab'}{$query_vocab}{'use_field_names'} |
|
209
|
0 |
0 |
unless defined $name and $name ne '' |
|
210
|
0 |
0 |
if $query_name and not $name =~ /$query_name/ |
|
223
|
0 |
0 |
if $ds->{'vocab'}{$v}{'use_field_names'} |
|
227
|
0 |
0 |
unless defined $name and $name ne '' |
|
228
|
0 |
0 |
if $query_name and not $name =~ /$query_name/ |
|
236
|
0 |
0 |
unless @matches |
|
283
|
0 |
0 |
unless $column_widths[$i] |
|
303
|
0 |
0 |
unless (keys %by_name) |
|
327
|
0 |
0 |
if defined $record->{'vvalue'} and $record->{'vvalue'} ne '' |
|
329
|
0 |
0 |
if not defined $widths->[0] or length $output > $widths->[0] |
|
330
|
0 |
0 |
if not defined $widths->[1] or length $block > $widths->[1] |
|
336
|
0 |
0 |
unless $value |
|
338
|
0 |
0 |
if ref $value eq 'ARRAY' |
|
340
|
0 |
0 |
if not defined $widths->[2] or length $cond > $widths->[2] |
|
343
|
0 |
0 |
if not defined $widths->[3] or length $loc > $widths->[3] |
|
369
|
0 |
0 |
if defined $record->{'vvalue'} and $record->{'vvalue'} ne '' |
|
375
|
0 |
0 |
unless $value |
|
377
|
0 |
0 |
if ref $value eq 'ARRAY' |
|
381
|
0 |
0 |
unless @conditionals |
|
390
|
0 |
0 |
if ($options->{'doc'} and defined $record->{'doc_string'} and $record->{'doc_string'} ne '') |
|
394
|
0 |
0 |
if ($options->{'doc'} eq 'long') { } |
|
417
|
0 |
0 |
unless defined $string and $string ne '' |
|
444
|
0 |
0 |
unless ($DIAG_PARAM{$key} or $DIGEST_PARAM{$key}) |
|
451
|
0 |
0 |
if $bad_param |
|
460
|
0 |
0 |
if ($node_query) |
|
501
|
0 |
0 |
if ref $ds->{'feature'} eq 'HASH' |
|
502
|
0 |
0 |
if ref $ds->{'special'} eq 'HASH' |
|
503
|
0 |
0 |
if ref $ds->{'special_alias'} eq 'HASH' |
|
504
|
0 |
0 |
if ref $ds->{'format'} eq 'HASH' |
|
505
|
0 |
0 |
if ref $ds->{'format_list'} eq 'ARRAY' |
|
506
|
0 |
0 |
if ref $ds->{'vocab'} eq 'HASH' |
|
507
|
0 |
0 |
if ref $ds->{'vocab_list'} eq 'ARRAY' |
|
532
|
0 |
0 |
unless defined $path and $path ne '' |
|
533
|
0 |
0 |
if $digest->{'node'}{$path} |
|
539
|
0 |
0 |
unless ref $ds->{'node_attrs'}{$path} |
|
544
|
0 |
0 |
if (ref $digest->{'node_query'} eq 'Regexp' and not $path =~ /$digest->{'node_query'}/) |
|
567
|
0 |
0 |
if (defined $value and $value ne '') |
|
577
|
0 |
0 |
if (my(@subnode_list) = $ds->get_nodelist($path)) |
|
605
|
0 |
0 |
if (my $outmap = $node->{'optional_output'}) |
|
609
|
0 |
0 |
if ($ds->diag_add_check($digest, 'set', $outmap, "node '${path}': optional_output")) |
|
619
|
0 |
0 |
if ($vr->{'maps_to'}) |
|
632
|
0 |
0 |
if (my $rs_name = $node->{'ruleset'}) { } |
|
|
0 |
0 |
elsif ($node->{'method'}) { } |
|
649
|
0 |
0 |
unless defined $hash->{$field} and $hash->{$field} ne '' |
|
651
|
0 |
0 |
if (ref $hash->{$field} eq 'ARRAY') { } |
|
653
|
0 |
0 |
if defined $_ |
|
676
|
0 |
0 |
unless defined $path and $path ne '' |
|
698
|
0 |
0 |
unless defined $name and $name ne '' |
|
699
|
0 |
0 |
if $digest->{'block'}{$name} |
|
703
|
0 |
0 |
unless ref $ds->{'block'}{$name} |
|
724
|
0 |
0 |
unless defined $name and $name ne '' |
|
725
|
0 |
0 |
if $digest->{'set'}{$name} |
|
729
|
0 |
0 |
unless ref $ds->{'set'}{$name} |
|
750
|
0 |
0 |
unless defined $name and $name ne '' |
|
751
|
0 |
0 |
if $digest->{'ruleset'}{$name} |
|
757
|
0 |
0 |
unless ref $rs_list eq 'ARRAY' |
|
767
|
0 |
0 |
unless ref $rule eq 'HASH' |
|
772
|
0 |
0 |
ref $rule->{'valid'} eq 'ARRAY' ? : |
|
780
|
0 |
0 |
if (ref $v) { } |
|
|
0 |
0 |
elsif ($v and $v ne 'FLAG_VALUE' and $v ne 'ANY_VALUE') { } |
|
798
|
0 |
0 |
if (@new_valid == 1) { } |
|
|
0 |
0 |
elsif (@new_valid > 1) { } |
|
813
|
0 |
0 |
if ($inclusion and not ref $inclusion) |
|
824
|
0 |
0 |
unless ref $_[0] |
|
828
|
0 |
0 |
unless $obj->can('GV') |
|
832
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
|
0 |
0 |
ref $_[0] eq 'CODE' ? : |
|
849
|
0 |
0 |
if $type eq 'ruleset' |
|
850
|
0 |
0 |
if $type eq 'node' |
|
852
|
0 |
0 |
if ref $ds->{$hashkey}{$name} |
|
865
|
0 |
0 |
unless defined $message and $message ne '' |