| blib/lib/Fsdb/Filter/dbcolpercentile.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 48 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 283 | 0 | 0 | unless $self->get_options(\@argv, 'help|?', sub { pod2usage(1); } , 'man', sub { pod2usage('-verbose', 2); } , 'a|include-non-numeric!', \$self->{'_include_non_numeric'}, 'autorun!', \$self->{'_autorun'}, 'd|debug+', \$self->{'_debug'}, 'f|format=s', \$self->{'_format'}, 'i|input=s', sub { $self->parse_io_option('input', @_); } , 'log!', \$self->{'_logprog'}, 'o|output=s', sub { $self->parse_io_option('output', @_); } , 'fraction', sub { $self->{'_mode'} = 'fraction'; } , 'p|percentile', sub { $self->{'_mode'} = 'percentile'; } , 'P|nopercentile|rank', sub { $self->{'_mode'} = 'rank'; } , 'S|pre-sorted+', \$self->{'_pre_sorted'}, 'T|tmpdir|tempdir=s', \$self->{'_tmpdir'}, '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; } ) |
| 299 | 0 | 0 | unless (defined $self->{'_sort_order'}) |
| 301 | 0 | 0 | $self->{'_sort_order'} == 1 ? : |
| 0 | 0 | if $self->{'_debug'} | |
| 309 | 0 | 0 | if ($self->{'_pre_sorted'}) { } |
| 316 | 0 | 0 | if $self->{'_sort_order'} == -1 |
| 317 | 0 | 0 | $self->{'_sort_as_numeric'} ? : |
| 325 | 0 | 0 | unless defined $self->{'_target_coli'} |
| 332 | 0 | 0 | unless defined $self->{'_destination_column'} |
| 336 | 0 | 0 | unless $self->{'_out'}->col_create($self->{'_destination_column'}) |
| 361 | 0 | 0 | if $save_sink->error |
| 381 | 0 | 0 | if ($self->{'_mode'} eq 'percentile') |
| 390 | 0 | 0 | $mode eq 'rank' ? : |
| 398 | 0 | 0 | $self->{'_pre_sorted'} == 1 ? : |
| 399 | 0 | 0 | if $self->{'_debugt'} and $check_sort_order |
| 405 | 0 | 0 | if ($mode eq 'percentile') |
| 410 | 0 | 0 | if (not $x =~ /$Fsdb::Filter::dbcolpercentile::is_numeric_regexp/) { } |
| 414 | 0 | 0 | if (defined $last and $x == $last) { } |
| 420 | 0 | 0 | if ($check_sort_order) |
| 421 | 0 | 0 | if (defined $last) |
| 423 | 0 | 0 | $check_sort_order == -1 ? : |
| 0 | 0 | if $order != $check_sort_order | |
| 434 | 0 | 0 | unless $in_run |
| 439 | 0 | 0 | if (defined $self->{'_sorter_fred'}) |