| blib/lib/Fsdb/Filter/dbcolmerge.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 16 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 199 | 0 | 0 | unless $self->get_options(\@argv, 'help|?', sub { pod2usage(1); } , 'man', sub { pod2usage(-'verbose', 2); } , 'autorun!', \$self->{'_autorun'}, 'close!', \$self->{'_close'}, 'C|element-separator=s', \$self->{'_elem_separator'}, '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', @_); } ) |
| 216 | 0 | 0 | if $self->{'_elem_separator'} =~ /\'/ |
| 219 | 0 | 0 | if $#{$$self{'_merge_columns'};} == -1 |
| 226 | 0 | 0 | unless $self->{'_out'}->col_create($self->{'_merged_colname'}) |
| 235 | 0 | 0 | if $empty eq q['] |
| 239 | 0 | 0 | unless defined $i |
| 269 | 0 | 0 | if $self->{'_debug'} |
| 271 | 0 | 0 | if $@ |