| blib/lib/Fsdb/Filter/dbfilevalidate.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 30 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 200 | 0 | 0 | unless $self->get_options(\@argv, 'help|?', sub { pod2usage(1); } , 'man', sub { pod2usage(-'verbose', 2); } , 'autorun!', \$self->{'_autorun'}, 'c|correct!', \$self->{'_correct'}, 'd|debug+', \$self->{'_debug'}, 'e|empty=s', \$self->{'_empty'}, 'i|input=s', sub { $self->parse_io_option('input', @_); } , 'log!', \$self->{'_logprog'}, 'o|output=s', sub { $self->parse_io_option('output', @_); } , 'v|errors-only!', \$self->{'_errors_only'}) |
| 201 | 0 | 0 | if $#argv != -1 |
| 239 | 0 | 0 | $self->{'_correct'} ? : |
| 246 | 0 | 0 | unless (defined $fref->[$_]) |
| 247 | 0 | 0 | $bad_fields eq '' ? : |
| 249 | 0 | 0 | if $self->{'_correct'} |
| 252 | 0 | 0 | if ($#$fref > $#columns) |
| 255 | 0 | 0 | if ($self->{'_correct'}) |
| 261 | 0 | 0 | if $bad_field_count or not $invert_output |
| 263 | 0 | 0 | if ($bad_field_count > 0) |
| 265 | 0 | 0 | $bad_field_count > 1 ? : |
| 269 | 0 | 0 | if ($extra_field_count) |
| 270 | 0 | 0 | $extra_field_count == 1 ? : |
| 273 | 0 | 0 | if not $self->{'_ok'} |
| 289 | 0 | 0 | if not $self->{'_ok'} || $self->{'_correct'} |