| blib/lib/Fsdb/Filter/dbrowuniq.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 36 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 318 | 0 | 0 | unless $self->get_options(\@argv, 'help|?', sub { pod2usage(1); } , 'man', sub { pod2usage(-'verbose', 2); } , 'autorun!', \$self->{'_autorun'}, 'B|both', sub { $self->{'_which'} = 'B'; } , 'c|count!', \$self->{'_count'}, 'F|first|nolast', sub { $self->{'_which'} = 'F'; } , 'header=s', \$self->{'_header'}, 'I|incremental!', \$self->{'_incremental'}, 'L|last', sub { $self->{'_which'} = 'L'; } , 'close!', \$self->{'_close'}, 'd|debug+', \$self->{'_debug'}, 'i|input=s', sub { $self->parse_io_option('input', @_); } , 'log!', \$self->{'_logprog'}, 'N|new-name=s', \$self->{'_destination_column'}, 'o|output=s', sub { $self->parse_io_option('output', @_); } ) |
| 334 | 0 | 0 | if defined $self->{'_header'} |
| 337 | 0 | 0 | if ($#{$$self{'_uniquifying_cols'};} == -1) { } |
| 340 | 0 | 0 | if $_ ne $self->{'_destination_column'} |
| 345 | 0 | 0 | unless defined $self->{'_in'}->col_to_i($_) |
| 350 | 0 | 0 | if ($self->{'_count'}) |
| 351 | 0 | 0 | if ($self->{'_out'}->col_to_i($self->{'_destination_column'})) { } |
| 352 | 0 | 0 | if (not $self->{'_incremental'}) |
| 357 | 0 | 0 | unless $self->{'_out'}->col_create($self->{'_destination_column'}) |
| 386 | 0 | 0 | unless defined $coli |
| 390 | 0 | 0 | if $self->{'_debug'} |
| 392 | 0 | 0 | $self->{'_incremental'} ? : |
| 399 | 0 | 0 | if $self->{'_which'} eq 'F' |
| 401 | 0 | 0 | defined $self->{'_count'} ? : |
| 404 | 0 | 0 | if ($self->{'_which'} eq 'F' or $self->{'_which'} eq 'B') |
| 410 | 0 | 0 | if ($self->{'_which'} eq 'L') |
| 416 | 0 | 0 | if ($self->{'_which'} eq 'B') |
| 446 | 0 | 0 | if $@ |