| 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;} |