Branch Coverage

blib/lib/Fsdb/Filter/dbfilepivot.pm
Criterion Covered Total %
branch 0 54 0.0


line true false branch
261 0 0 defined $ENV{'TMPDIR'} ? :
306 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', @_); } , 'k|key=s', \$self->{'_key_column'}, 'log!', \$self->{'_logprog'}, 'o|output=s', sub { $self->parse_io_option('output', @_); } , 'p|pivot=s', \$self->{'_pivot_column'}, 'possible-pivots=s', \$self->{'_possible_pivots'}, 'S|pre-sorted+', \$self->{'_pre_sorted'}, 'T|tmpdir|tempdir=s', \$self->{'_tmpdir'}, 'v|value=s', \$self->{'_value_column'}, 'n|numeric', sub { $self->{'_sort_as_numeric'} = 1; } , 'N|lexical', sub { $self->{'_sort_as_numeric'} = undef; } , 'r|descending', sub { $self->{'_sort_order'} = -1; } , 'R|ascending', sub { $self->{'_sort_order'} = 1; } )
307 0 0 if $#argv != -1
345 0 0 if $self->{'_debug'}
347 0 0 if $@
349 0 0 if (defined $self->{'_sorter_fred'})
395 0 0 if $self->{'_empty'} eq q[']
400 0 0 if ($self->{'_pre_sorted'}) { }
407 0 0 if $self->{'_sort_order'} == -1
408 0 0 $self->{'_sort_as_numeric'} ? :
415 0 0 unless defined $self->{'_key_column'}
418 0 0 unless defined $self->{'_key_coli'}
420 0 0 unless defined $self->{'_pivot_column'}
423 0 0 unless defined $self->{'_pivot_coli'}
425 0 0 if (defined $self->{'_value_column'})
428 0 0 unless defined $self->{'_value_coli'}
431 0 0 defined $self->{'_possible_pivots'} ? :
432 0 0 if $npivots == 0
450 0 0 unless $self->{'_out'}->col_create($new_column)
459 0 0 if $_ eq $self->{'_pivot_column'} or defined $self->{'_value_column'} and $_ eq $self->{'_value_column'}
483 0 0 defined $self->{'_replayable'} ? :
499 0 0 if $self->{'_pre_sorted'} > 1
500 0 0 defined $self->{'_value_column'} ? :
528 0 0 if $self->{'_debug'}
530 0 0 if ($@)
532 0 0 if ($@ =~ /^$self->{'_prog'}/) { }
540 0 0 if (defined $self->{'_sorter_fred'})