blib/lib/Fsdb/Filter/dbfilecat.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 0 | 36 | 0.0 |
line | true | false | branch |
---|---|---|---|
214 | 0 | 0 | unless $self->get_options(\@argv, 'help|?', sub { pod2usage(1); } , 'man', sub { pod2usage('-verbose', 2); } , 'autorun!', \$self->{'_autorun'}, 'close!', \$self->{'_close'}, 'd|debug+', \$self->{'_debug'}, 'i|input=s@', sub { $self->parse_io_option('inputs', @_); } , 'log!', \$self->{'_logprog'}, 'o|output=s', sub { $self->parse_io_option('output', @_); } , 'removeinputs!', \$self->{'_remove_inputs'}, 'xargs!', \$self->{'_xargs'}) |
228 | 0 | 0 | if ($#{$$self{'_inputs'};} == -1) |
232 | 0 | 0 | if ($self->{'_xargs'} and $#{$$self{'_inputs'};} > 0) |
235 | 0 | 0 | if (not $self->{'_xargs'} and $self->{'_remove_inputs'}) |
239 | 0 | 0 | if ($self->{'_xargs'}) { } |
241 | 0 | 0 | if $#{$$self{'_inputs'};} != 0 |
245 | 0 | 0 | if $self->{'_ins'}[0]->error |
250 | 0 | 0 | if $self->{'_ins'}[0]->compare($_) ne 'identical' |
268 | 0 | 0 | if $self->{'_debug'} |
272 | 0 | 0 | if $self->{'_debug'} |
285 | 0 | 0 | if ($self->{'_xargs'}) { } |
290 | 0 | 0 | if $self->{'_debug'} |
292 | 0 | 0 | if (not $self->{'_out'}) { } |
296 | 0 | 0 | if $self->{'_out'}->compare($this_in) ne 'identical' |
299 | 0 | 0 | if ($self->{'_remove_inputs'}) |
301 | 0 | 0 | unless unlink $fref->[0] |
304 | 0 | 0 | if $inputs == 0 |
310 | 0 | 0 | if $self->{'_debug'} |