Branch Coverage

blib/lib/Fsdb/Filter/cgi_to_db.pm
Criterion Covered Total %
branch 0 28 0.0


line true false branch
247 0 0 unless $self->get_options(\@argv, 'help|?', sub { pod2usage(1); } , 'man', sub { pod2usage(-'verbose', 2); } , 'autorun!', \$self->{'_autorun'}, 'd|debug+', \$self->{'_debug'}, 'e|empty=s', \$self->{'_empty'}, 'i|input=s@', sub { $self->parse_io_option('inputs', @_); } , 'inputs', sub { } , 'log!', \$self->{'_logprog'}, 'o|output=s', sub { $self->parse_io_option('output', @_); } , 'u|unescape!', \$self->{'_unescape'}, 'T|tmpdir|tempdir=s', \$self->{'_tmpdir'}, 'U', sub { $self->{'_unescape'} = undef; } , '<>', sub { $self->parse_io_option('inputs', @_); } )
279 0 0 unless open TMP, ">$self->{'_save_in_filename'}"
283 0 0 unless open IN, "<$fn"
288 0 0 if ($_ eq '=')
294 0 0 unless defined $key
295 0 0 if defined $columns_found{$key}
301 0 0 unless $at_end_of_record
310 0 0 unless open TMP, "<$self->{'_save_in_filename'}"
316 0 0 if ($_ eq '=')
324 0 0 unless defined $key
325 0 0 unless defined $columns_found{$key}
330 0 0 if not defined $value or $value eq ''
331 0 0 if ($unescape)
342 0 0 unless $at_end_of_record