Branch Coverage

blib/lib/Tie/FieldVals/Row.pm
Criterion Covered Total %
branch 63 164 38.4


line true false branch
100 0 0 if ($args{'override_keys'}) { }
116 0 0 if ($args{'override_keys'} or $args{'append_keys'} or exists $self->{'FIELDS'}{$field}) { }
121 0 0 unless (defined $self->{'FIELDS'}{$field})
125 0 0 if (ref $val) { }
133 0 0 if ($args{'override_keys'})
196 11 614 if ($args{'override_keys'}) { }
215 6607 1092 if ($line =~ /^([a-zA-Z][-_a-zA-Z0-9]*):(.*)$/) { }
1092 0 elsif ($cur_field) { }
219 6607 0 if ($args{'override_keys'} or $args{'append_keys'} or exists $self->{'FIELDS'}{$field}) { }
0 0 elsif ($cur_field) { }
224 6605 2 unless (defined $self->{'FIELDS'}{$field})
229 111 6496 if ($args{'override_keys'})
304 0 0 if ($args{'override_keys'}) { }
317 0 0 if ($record_str =~ m[(.*)]s)
328 0 0 if ($fld =~ /<([a-zA-Z][-_a-zA-Z0-9]*)>/)
332 0 0 if ($args{'override_keys'} or $args{'append_keys'} or exists $self->{'FIELDS'}{$field})
343 0 0 unless (defined $self->{'FIELDS'}{$field})
349 0 0 if ($args{'override_keys'})
379 0 11 defined $args{'fields'} ? :
382 114 0 if ($self->EXISTS($field))
423 0 0 defined $args{'fields'} ? :
426 0 0 if ($self->EXISTS($field))
482 0 114 unless (exists $self->{'FIELDS'}{$field_name} and defined $self->{'FIELDS'}{$field_name})
488 114 0 if (ref $self->{'FIELDS'}{$field_name} eq 'ARRAY') { }
0 0 elsif (not ref $self->{'FIELDS'}{$field_name}) { }
545 0 0 if (ref $value eq 'ARRAY') { }
0 0 elsif (not ref $value) { }
554 0 0 if ($num_vals > 0) { }
556 0 0 if ($i == 0) { }
0 0 elsif ($i == $field_ind) { }
612 164 388 if (defined $val and is_matched($val, $re))
617 164 388 if $found == scalar keys %match
642 0 0 if (defined $val and is_matched($val, $match_str))
647 0 0 if $found > 0
666 0 627 if $DEBUG
672 0 627 unless (defined $args{'fields'})
718 0 1230 if $DEBUG
724 478 752 if (ref $match) { }
725 478 0 if (ref $match eq 'SCALAR') { }
0 0 elsif (ref $match eq 'HASH') { }
0 0 elsif (ref $match eq 'ARRAY') { }
747 0 1230 unless (exists $self->{'FIELDS'}{$key})
751 1230 0 if (ref $self->{'FIELDS'}{$key} eq 'ARRAY') { }
754 478 752 if ($return_array) { }
752 0 elsif ($count == 1) { }
787 0 4 if $DEBUG
791 0 4 if (ref $match) { }
798 0 4 unless (exists $self->{'FIELDS'}{$key})
804 0 4 if (ref $val) { }
805 0 0 if (ref $val eq 'ARRAY') { }
826 0 0 if $DEBUG
829 0 0 unless exists $self->{'FIELDS'}{$key}
844 0 614 if $DEBUG
856 0 224 if $DEBUG
869 0 18 if $DEBUG
882 0 203 if $DEBUG
890 0 627 if $DEBUG
902 0 0 @_ ? :
918 0 552 if (ref $re eq 'Regexp')
919 0 0 $str =~ /$re/ ? :
928 0 552 if ($re and $re =~ /^![^=]/)
933 314 238 if ($re and $re =~ /^(\S*)\s+(.*)/) { }
238 0 elsif ($re) { }
939 25 289 if (not $numop =~ /$op/ || $chrop =~ /$op/) { }
119 170 elsif ($numop =~ /$op/) { }
940 4 21 $str =~ /$re/ ? :
943 108 11 $str ? :
944 0 119 if ($op eq '<') { }
0 119 elsif ($op eq '>') { }
0 119 elsif ($op eq '==') { }
0 119 elsif ($op eq '!=') { }
0 119 elsif ($op eq '<=') { }
119 0 elsif ($op eq '>=') { }
951 0 170 if ($op eq 'lt') { }
0 170 elsif ($op eq 'gt') { }
170 0 elsif ($op eq 'eq') { }
0 0 elsif ($op eq 'ne') { }
0 0 elsif ($op eq 'le') { }
0 0 elsif ($op eq 'ge') { }
961 5 233 $str =~ /$re/ ? :
964 0 0 $str eq '' ? :
967 0 552 if ($negate)