| 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) |