| line |
true |
false |
branch |
|
325
|
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'}, 'close!', \$self->{'_close'}, 'c|confidence=f', \$self->{'_confidence_fraction'}, 'd|debug+', \$self->{'_debug'}, 'f|format=s', \$self->{'_format'}, 'F|fs|cs|fieldseparator|columnseparator=s', \$self->{'_fscode'}, 'i|input=s', sub {
$self->parse_io_option('input', @_);
}
, 'k|key=s', \$self->{'_key_column'}, 'log!', \$self->{'_logprog'}, 'm|median!', \$self->{'_median'}, 'o|output=s', sub {
$self->parse_io_option('output', @_);
}
, 'parallelism=i', \$self->{'_max_parallelism'}, 'q|quantile=i', \$self->{'_quantile'}, 's|sample!', \$self->{'_sample'}, 'S|pre-sorted+', \$self->{'_pre_sorted'}, 'T|tmpdir|tempdir=s', \$self->{'_tmpdir'}, 'saveoutput=s', \$self->{'_save_output'}) |
|
341
|
0 |
0 |
unless defined $self->{'_target_column'} |
|
343
|
0 |
0 |
if $self->{'_debug'} > 2 |
|
345
|
0 |
0 |
if $self->{'_debug'} > 2 |
|
348
|
0 |
0 |
unless defined $self->{'_target_coli'} |
|
350
|
0 |
0 |
if (defined $self->{'_key_column'}) |
|
353
|
0 |
0 |
unless defined $self->{'_key_coli'} |
|
360
|
0 |
0 |
if $self->{'_median'} |
|
361
|
0 |
0 |
if ($self->{'_quantile'}) |
|
366
|
0 |
0 |
if defined $self->{'_key_column'} |
|
367
|
0 |
0 |
if $self->{'_debug'} > 2 |
|
370
|
0 |
0 |
if defined $self->{'_fscode'} |
|
372
|
0 |
0 |
if $self->{'_debug'} > 2 |
|
374
|
0 |
0 |
if ($self->{'_quantile'} or $self->{'_median'}) { } |
|
376
|
0 |
0 |
if defined $self->{'_key_column'} |
|
381
|
0 |
0 |
if $self->{'_debug'} > 2 |
|
382
|
0 |
0 |
if (not $self->{'_pre_sorted'}) { } |
|
386
|
0 |
0 |
if defined $self->{'_max_parallelism'} |
|
387
|
0 |
0 |
if $self->{'_debug'} > 2 |
|
397
|
0 |
0 |
if $self->{'_debug'} > 2 |
|
399
|
0 |
0 |
if $self->{'_debug'} > 2 |
|
415
|
0 |
0 |
$x > $xi ? : |
|
431
|
0 |
0 |
unless $self->{'_quantile'} or $self->{'_median'} |
|
433
|
0 |
0 |
unless defined $effective_quantile |
|
437
|
0 |
0 |
if ($n <= 1) |
|
444
|
0 |
0 |
if $save_in->error |
|
449
|
0 |
0 |
$n >= $effective_quantile + 1 ? : |
|
462
|
0 |
0 |
if (--$replicates_left <= 0) |
|
464
|
0 |
0 |
if ref $fref ne 'ARRAY' |
|
469
|
0 |
0 |
if (defined $last_x and $x < $last_x) |
|
470
|
0 |
0 |
$self->{'_pre_sorted'} ? : |
|
475
|
0 |
0 |
if ($i == $median_i) |
|
476
|
0 |
0 |
unless defined $next_q_i |
|
478
|
0 |
0 |
if ($i == $next_q_i) |
|
494
|
0 |
0 |
if $self->{'_debug'} > 2 |
|
527
|
0 |
0 |
if (defined $self->{'_key_column'}) |
|
544
|
0 |
0 |
unless $self->{'_include_non_numeric'} |
|
551
|
0 |
0 |
if $self->{'_debug'} > 2 |
|
553
|
0 |
0 |
if ($self->{'_quantile'} or $self->{'_median'}) |
|
561
|
0 |
0 |
if $self->{'_debug'} > 2 |
|
572
|
0 |
0 |
if $self->{'_debug'} |
|
573
|
0 |
0 |
if $self->{'_debug'} |
|
575
|
0 |
0 |
if $@ |
|
578
|
0 |
0 |
if ($self->{'_quantile'} or $self->{'_median'}) |
|
579
|
0 |
0 |
if $self->{'_debug'} > 2 |
|
581
|
0 |
0 |
if $self->{'_debug'} > 2 |
|
588
|
0 |
0 |
if (defined $self->{'_sorter_fred'}) |
|
590
|
0 |
0 |
if $self->{'_debug'} > 2 |
|
593
|
0 |
0 |
if $self->{'_debug'} > 2 |
|
599
|
0 |
0 |
$n == 0 ? : |
|
607
|
0 |
0 |
if ($n == 0) { } |
|
611
|
0 |
0 |
$self->{'_sample'} ? : |
|
|
0 |
0 |
$n <= 1 || $max == $min ? : |
|
614
|
0 |
0 |
if ($stddev eq '-' or $mean eq '-' or $mean == 0) { } |
|
624
|
0 |
0 |
if ($n <= 1) { } |
|
630
|
0 |
0 |
$conf_half eq '-' ? : |
|
631
|
0 |
0 |
$conf_half eq '-' ? : |
|
652
|
0 |
0 |
!defined($min) || $min eq '-' ? : |
|
|
0 |
0 |
!defined($max) || $max eq '-' ? : |
|
660
|
0 |
0 |
if $self->{'_median'} |
|
661
|
0 |
0 |
if ($self->{'_quantile'}) |
|
666
|
0 |
0 |
if (defined $key_column) |
|
685
|
0 |
0 |
unless defined $self->{'_holdover_key'} |