| line |
true |
false |
branch |
|
327
|
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('<>', @_);
}
) |
|
328
|
0 |
0 |
if $#argv != -1 |
|
344
|
0 |
0 |
if $#{$$self{'_sort_argv'};} == -1 |
|
346
|
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' |
|
348
|
0 |
0 |
unless $self->{'_join_method'} eq 'merge' or $self->{'_join_method'} eq 'lefthash' or $self->{'_join_method'} eq 'righthash' |
|
354
|
0 |
0 |
if ($self->{'_join_method'} eq 'righthash') { } |
|
|
0 |
0 |
elsif ($self->{'_join_method'} eq 'lefthash') { } |
|
363
|
0 |
0 |
if ($self->{'_join_method'} eq 'merge' and not $self->{'_pre_sorted'}) { } |
|
366
|
0 |
0 |
if defined $self->{'_tmpdir'} |
|
379
|
0 |
0 |
unless defined $self->{'_ins'}[0]->compare($self->{'_ins'}[1]) |
|
399
|
0 |
0 |
if $key =~ /^-/ |
|
405
|
0 |
0 |
$_ == 0 ? : |
|
|
0 |
0 |
unless defined $col_i[$_] |
|
409
|
0 |
0 |
if ($self->{'_join_method'} ne 'merge') |
|
410
|
0 |
0 |
if ($_ == $hashside) |
|
411
|
0 |
0 |
$i == 0 ? : |
|
412
|
0 |
0 |
$i == 0 ? : |
|
416
|
0 |
0 |
if ($_ == $fullside) |
|
417
|
0 |
0 |
$i == 0 ? : |
|
435
|
0 |
0 |
if defined $all_keys{$key} |
|
438
|
0 |
0 |
unless defined $col_i |
|
441
|
0 |
0 |
if ($self->{'_join_method'} ne 'merge') |
|
442
|
0 |
0 |
if (0 == $hashside) |
|
449
|
0 |
0 |
if (0 == $fullside) |
|
456
|
0 |
0 |
if defined $join_keys{$key} |
|
460
|
0 |
0 |
if (defined $all_keys{$key}) |
|
465
|
0 |
0 |
unless defined $col_i |
|
468
|
0 |
0 |
if ($self->{'_join_method'} ne 'merge') |
|
469
|
0 |
0 |
if (1 == $hashside) |
|
476
|
0 |
0 |
if (1 == $fullside) |
|
498
|
0 |
0 |
unless defined $self->{'_compare_code'} |
|
500
|
0 |
0 |
if $self->{'_debug'} |
|
504
|
0 |
0 |
unless defined $self->{'_compare_code_ins'}[$_] |
|
532
|
0 |
0 |
if $@ |
|
549
|
0 |
0 |
if $@ |
|
563
|
0 |
0 |
if ($self->{'_join_type'} eq 'inner') { } |
|
|
0 |
0 |
elsif ($self->{'_join_type'} eq 'left') { } |
|
|
0 |
0 |
elsif ($self->{'_join_type'} eq 'right') { } |
|
573
|
0 |
0 |
if (defined $frefs[0]) |
|
574
|
0 |
0 |
unless &{$check_compare_subs[0];}() <= 0 |
|
580
|
0 |
0 |
if (defined $frefs[1]) |
|
581
|
0 |
0 |
unless &{$check_compare_subs[1];}() <= 0 |
|
624
|
0 |
0 |
unless defined $frefs[0] and defined $frefs[1] |
|
631
|
0 |
0 |
unless defined $frefs[0] |
|
632
|
0 |
0 |
unless defined $frefs[1] |
|
636
|
0 |
0 |
if ($left_right_cmp < 0) { } |
|
|
0 |
0 |
elsif ($left_right_cmp > 0) { } |
|
640
|
0 |
0 |
unless defined $frefs[0] |
|
645
|
0 |
0 |
unless defined $frefs[1] |
|
654
|
0 |
0 |
unless $left_right_cmp == 0 |
|
655
|
0 |
0 |
unless defined $frefs[0] |
|
656
|
0 |
0 |
unless defined $frefs[1] |
|
665
|
0 |
0 |
if $#right_frefs == 2000 |
|
668
|
0 |
0 |
unless defined $frefs[1] |
|
670
|
0 |
0 |
if $left_right_cmp != 0 |
|
672
|
0 |
0 |
unless not defined $frefs[1] or $left_right_cmp != 0 |
|
694
|
0 |
0 |
unless defined $frefs[0] |
|
696
|
0 |
0 |
if $left_right_cmp != 0 |
|
698
|
0 |
0 |
unless not defined $frefs[0] or $left_right_cmp != 0 |
|
705
|
0 |
0 |
unless not defined $frefs[0] && defined $frefs[1] or $left_right_cmp != 0 |
|
721
|
0 |
0 |
if (not $self->{'_pre_sorted'}) |
|
777
|
0 |
0 |
if $@ |
|
782
|
0 |
0 |
if (defined $hashed_table{$key}) { } |
|
784
|
0 |
0 |
if (ref $hashed_table{$key} eq 'SCALAR') { } |
|
790
|
0 |
0 |
if defined $hashed_table_overflow{$key} |
|
817
|
0 |
0 |
if $@ |
|
829
|
0 |
0 |
if (not defined $hit) { } |
|
831
|
0 |
0 |
if ($show_probe_non_matches) |
|
838
|
0 |
0 |
if (ref $hit eq 'ARRAY') { } |
|
857
|
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') |
|
862
|
0 |
0 |
if (ref $hit eq 'ARRAY') { } |
|
887
|
0 |
0 |
if ($self->{'_join_method'} eq 'merge') { } |
|
|
0 |
0 |
elsif ($self->{'_join_method'} eq 'righthash') { } |
|
|
0 |
0 |
elsif ($self->{'_join_method'} eq 'lefthash') { } |