| line |
true |
false |
branch |
|
330
|
0 |
0 |
unless $self->get_options(\@argv, 'help|?', sub {
pod2usage(1);
}
, 'man', sub {
pod2usage('-verbose', 2);
}
, 'a|all!', sub {
$self->{'_join_type'} = 'outer';
}
, 'autorun!', \$self->{'_autorun'}, 'close!', \$self->{'_close'}, 'd|debug+', \$self->{'_debug'}, 'e|empty=s', \$self->{'_empty'}, 'i|input=s@', sub {
$self->parse_io_option('inputs', @_);
}
, 'log!', \$self->{'_logprog'}, 'm|method=s', \$self->{'_join_method'}, 'o|output=s', sub {
$self->parse_io_option('output', @_);
}
, 'S|pre-sorted+', \$self->{'_pre_sorted'}, 't|type=s', \$self->{'_join_type'}, 'T|tmpdir|tempdir=s', \$self->{'_tmpdir'}, 'n|numeric', sub {
$self->parse_sort_option(@_);
}
, 'N|lexical', sub {
$self->parse_sort_option(@_);
}
, 'r|descending', sub {
$self->parse_sort_option(@_);
}
, 'R|ascending', sub {
$self->parse_sort_option(@_);
}
, '<>', sub {
$self->parse_sort_option('<>', @_);
}
) |
|
331
|
0 |
0 |
if $#argv != -1 |
|
347
|
0 |
0 |
if $#{$$self{'_sort_argv'};} == -1 |
|
349
|
0 |
0 |
unless $self->{'_join_type'} eq 'inner' or $self->{'_join_type'} eq 'outer' or $self->{'_join_type'} eq 'left' or $self->{'_join_type'} eq 'right' |
|
351
|
0 |
0 |
unless $self->{'_join_method'} eq 'merge' or $self->{'_join_method'} eq 'lefthash' or $self->{'_join_method'} eq 'righthash' |
|
357
|
0 |
0 |
if ($self->{'_join_method'} eq 'righthash') { } |
|
|
0 |
0 |
elsif ($self->{'_join_method'} eq 'lefthash') { } |
|
366
|
0 |
0 |
if ($self->{'_join_method'} eq 'merge' and not $self->{'_pre_sorted'}) { } |
|
369
|
0 |
0 |
if defined $self->{'_tmpdir'} |
|
382
|
0 |
0 |
unless defined $self->{'_ins'}[0]->compare($self->{'_ins'}[1]) |
|
402
|
0 |
0 |
if $key =~ /^-/ |
|
408
|
0 |
0 |
$_ == 0 ? : |
|
|
0 |
0 |
unless defined $col_i[$_] |
|
412
|
0 |
0 |
if ($self->{'_join_method'} ne 'merge') |
|
413
|
0 |
0 |
if ($_ == $hashside) |
|
414
|
0 |
0 |
$i == 0 ? : |
|
415
|
0 |
0 |
$i == 0 ? : |
|
419
|
0 |
0 |
if ($_ == $fullside) |
|
420
|
0 |
0 |
$i == 0 ? : |
|
438
|
0 |
0 |
if defined $all_keys{$key} |
|
441
|
0 |
0 |
unless defined $col_i |
|
444
|
0 |
0 |
if ($self->{'_join_method'} ne 'merge') |
|
445
|
0 |
0 |
if (0 == $hashside) |
|
452
|
0 |
0 |
if (0 == $fullside) |
|
459
|
0 |
0 |
if defined $join_keys{$key} |
|
463
|
0 |
0 |
if (defined $all_keys{$key}) |
|
468
|
0 |
0 |
unless defined $col_i |
|
471
|
0 |
0 |
if ($self->{'_join_method'} ne 'merge') |
|
472
|
0 |
0 |
if (1 == $hashside) |
|
479
|
0 |
0 |
if (1 == $fullside) |
|
501
|
0 |
0 |
unless defined $self->{'_compare_code'} |
|
503
|
0 |
0 |
if $self->{'_debug'} |
|
507
|
0 |
0 |
unless defined $self->{'_compare_code_ins'}[$_] |
|
535
|
0 |
0 |
if $@ |
|
552
|
0 |
0 |
if $@ |
|
566
|
0 |
0 |
if ($self->{'_join_type'} eq 'inner') { } |
|
|
0 |
0 |
elsif ($self->{'_join_type'} eq 'left') { } |
|
|
0 |
0 |
elsif ($self->{'_join_type'} eq 'right') { } |
|
576
|
0 |
0 |
if (defined $frefs[0]) |
|
577
|
0 |
0 |
unless &{$check_compare_subs[0];}() <= 0 |
|
583
|
0 |
0 |
if (defined $frefs[1]) |
|
584
|
0 |
0 |
unless &{$check_compare_subs[1];}() <= 0 |
|
627
|
0 |
0 |
unless defined $frefs[0] and defined $frefs[1] |
|
634
|
0 |
0 |
unless defined $frefs[0] |
|
635
|
0 |
0 |
unless defined $frefs[1] |
|
639
|
0 |
0 |
if ($left_right_cmp < 0) { } |
|
|
0 |
0 |
elsif ($left_right_cmp > 0) { } |
|
643
|
0 |
0 |
unless defined $frefs[0] |
|
648
|
0 |
0 |
unless defined $frefs[1] |
|
657
|
0 |
0 |
unless $left_right_cmp == 0 |
|
658
|
0 |
0 |
unless defined $frefs[0] |
|
659
|
0 |
0 |
unless defined $frefs[1] |
|
668
|
0 |
0 |
if $#right_frefs == 2000 |
|
671
|
0 |
0 |
unless defined $frefs[1] |
|
673
|
0 |
0 |
if $left_right_cmp != 0 |
|
675
|
0 |
0 |
unless not defined $frefs[1] or $left_right_cmp != 0 |
|
697
|
0 |
0 |
unless defined $frefs[0] |
|
699
|
0 |
0 |
if $left_right_cmp != 0 |
|
701
|
0 |
0 |
unless not defined $frefs[0] or $left_right_cmp != 0 |
|
708
|
0 |
0 |
unless not defined $frefs[0] && defined $frefs[1] or $left_right_cmp != 0 |
|
724
|
0 |
0 |
if (not $self->{'_pre_sorted'}) |
|
780
|
0 |
0 |
if $@ |
|
785
|
0 |
0 |
if (defined $hashed_table{$key}) { } |
|
787
|
0 |
0 |
if (ref $hashed_table{$key} eq 'SCALAR') { } |
|
793
|
0 |
0 |
if defined $hashed_table_overflow{$key} |
|
820
|
0 |
0 |
if $@ |
|
832
|
0 |
0 |
if (not defined $hit) { } |
|
834
|
0 |
0 |
if ($show_probe_non_matches) |
|
841
|
0 |
0 |
if (ref $hit eq 'ARRAY') { } |
|
860
|
0 |
0 |
if ($self->{'_join_type'} eq 'outer' or $self->{'_join_type'} eq 'left' and $self->{'_join_method'} eq 'lefthash' or $self->{'_join_type'} eq 'right' and $self->{'_join_method'} eq 'righthash') |
|
865
|
0 |
0 |
if (ref $hit eq 'ARRAY') { } |
|
890
|
0 |
0 |
if ($self->{'_join_method'} eq 'merge') { } |
|
|
0 |
0 |
elsif ($self->{'_join_method'} eq 'righthash') { } |
|
|
0 |
0 |
elsif ($self->{'_join_method'} eq 'lefthash') { } |