Branch Coverage

blib/lib/Fsdb/Filter/dbcolneaten.pm
Criterion Covered Total %
branch 0 32 0.0


line true false branch
211 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'}, 'eoln!', \$self->{'_do_eoln'}, 'e', sub { $self->{'_do_eoln'} = 1; } , 'E', sub { $self->{'_do_eoln'} = 0; } , 'i|input=s', sub { $self->parse_io_option('input', @_); } , 'log!', \$self->{'_logprog'}, 'o|output=s', sub { $self->parse_io_option('output', @_); } )
229 0 0 if $self->{'_in'}->fscode eq 'D'
247 0 0 if $self->{'_out'} != $out
258 0 0 unless $header_fs =~ /^\s+$/
294 0 0 defined $fref->[$_] ? :
295 0 0 if $l > $colwidths[$_]
308 0 0 unless defined $field_name and defined $value
311 0 0 unless defined $field_col
313 0 0 if ($op eq '=') { }
0 0 elsif ($op eq '>=') { }
0 0 elsif ($op eq '<=') { }
316 0 0 if $colwidths[$field_col] < $value
318 0 0 if $colwidths[$field_col] > $value
333 0 0 defined $fields_ref->[$_] ? :
337 0 0 if ($more > 0 and $_ < $#{$colwidthref;} || $do_eoln)
343 0 0 if defined $extra_char and $_ != $#{$colwidthref;}