| 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'}) |