Branch Coverage

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 $@