Branch Coverage

blib/lib/Tie/FieldVals/Join.pm
Criterion Covered Total %
branch 16 50 32.0


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 @_ ? :