Branch Coverage

blib/lib/Fsdb/Filter/dbcolcreate.pm
Criterion Covered Total %
branch 0 26 0.0


line true false branch
198 0 0 if ($target eq '-')
205 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'}, 'e|empty=s', \$self->{'_empty'}, 'f|first!', \$self->{'_first'}, 'i|input=s', sub { $self->parse_io_option('input', @_); } , 'recreate-fatal!', \$self->{'_recreate_fatal'}, 'log!', \$self->{'_logprog'}, 'o|output=s', sub { $self->parse_io_option('output', @_); } , '<>', sub { my($target) = @_; if ($target eq '-') { warn qq[dbcolcreate: appear to be using fsdb-1 dual argument syntax. Replace "NewCol DefaultValue" with "-e DefaultValue NewCol".\n]; return; } ; push @{$$self{'_creations'};}, $target; $self->{'_create_values'}{$target} = $self->{'_empty'}; } )
206 0 0 if $#argv != -1
221 0 0 if $#{$$self{'_creations'};} == -1
230 0 0 $self->{'_first'} ? :
233 0 0 if (defined $existing_cols{$_})
234 0 0 unless $self->{'_recreate_fatal'}
238 0 0 if ($self->{'_first'}) { }
246 0 0 if ($val =~ /\'/)
248 0 0 if $val =~ /\|/
253 0 0 $self->{'_first'} ? :
265 0 0 if $insert_args eq ''
286 0 0 if $@