| line |
true |
false |
branch |
|
72
|
0 |
1 |
if $DEBUG |
|
118
|
0 |
1 |
if $DEBUG |
|
153
|
10 |
1 |
if ($fn ne $args{'join_field'}) |
|
165
|
0 |
1 |
if (defined $args{'selection'}) |
|
169
|
0 |
0 |
if ($field_names_hash1{$key}) |
|
173
|
0 |
0 |
if ($field_names_hash2{$key}) |
|
185
|
0 |
1 |
%sel1 ? : |
|
|
0 |
1 |
unless $$self{'SEL_OBJS'}[0] = tie(@sel_recs1, 'Tie::FieldVals::Select', 'datafile', $args{'datafile'}, 'selection', %sel1 ? \%sel1 : undef, 'match_any', $args{'match_any'}) |
|
192
|
0 |
1 |
%sel2 ? : |
|
|
0 |
1 |
unless $$self{'SEL_OBJS'}[1] = tie(@sel_recs2, 'Tie::FieldVals::Select', 'datafile', $args{'joinfile'}, 'selection', %sel2 ? \%sel2 : undef, 'match_any', $args{'match_any'}) |
|
215
|
52 |
0 |
if ($join_val) { } |
|
225
|
52 |
0 |
if ($j < @sel_recs2) |
|
244
|
0 |
1 |
if ($args{'cache_all'}) |
|
263
|
0 |
1 |
if $DEBUG |
|
266
|
0 |
1 |
if (defined $$self{'REC_CACHE'}{$ind}) { } |
|
274
|
0 |
1 |
if (@cached >= $$self{'OPTIONS'}{'cache_size'}) |
|
310
|
0 |
0 |
if $DEBUG |
|
322
|
0 |
2 |
if $DEBUG |
|
334
|
0 |
0 |
if $DEBUG |
|
346
|
0 |
0 |
if $DEBUG |
|
350
|
0 |
0 |
if ($ind >= 0 and $ind < @{$$self{'JOIN_RECS'};}) |
|
365
|
0 |
0 |
if $DEBUG |
|
380
|
0 |
0 |
if $DEBUG |
|
393
|
0 |
0 |
if $DEBUG |
|
414
|
0 |
0 |
@_ ? : |