| line |
true |
false |
branch |
|
26
|
0 |
1 |
if ($^O eq "MSWin32") |
|
35
|
0 |
0 |
if @_ > 1 |
|
38
|
0 |
0 |
if (defined $opt) |
|
39
|
0 |
0 |
if ref $opt ne "HASH" |
|
42
|
0 |
0 |
if defined $opt->{$key} |
|
109
|
0 |
0 |
if ($self->{'hide_cursor'}) |
|
112
|
0 |
0 |
if (exists $self->{'backup_instance_defaults'}) |
|
115
|
0 |
0 |
if ($key eq 'plugin' or $key eq 'backup_instance_defaults') { } |
|
|
0 |
0 |
elsif (exists $instance_defaults->{$key}) { } |
|
130
|
0 |
0 |
if (ref $_[0] ne "Term::TablePrint") |
|
137
|
0 |
0 |
if @_ < 1 or @_ > 2 |
|
138
|
0 |
0 |
if ref $tbl_orig ne "ARRAY" |
|
139
|
0 |
0 |
if (defined $opt) |
|
140
|
0 |
0 |
if ref $opt ne "HASH" |
|
143
|
0 |
0 |
if defined $opt->{$key} |
|
147
|
0 |
0 |
unless ($self->{'tab_width'} % 2) |
|
156
|
0 |
0 |
if (print_columns($self->{'decimal_separator'}) != 1) |
|
159
|
0 |
0 |
if ($self->{'decimal_separator'} ne ".") |
|
162
|
0 |
0 |
if ($self->{'hide_cursor'}) |
|
165
|
0 |
0 |
unless (@$tbl_orig) |
|
176
|
0 |
0 |
if ($self->{'max_rows'} and $data_row_count > $self->{'max_rows'}) |
|
181
|
0 |
0 |
$^O eq 'MSWin32' || $^O eq 'cygwin' ? : |
|
199
|
0 |
0 |
unless (defined $term_w) |
|
208
|
0 |
0 |
if (not defined $next) { } |
|
|
0 |
0 |
elsif ($next == $mr->{'last'}) { } |
|
|
0 |
0 |
elsif ($next == $mr->{'window_width_changed'}) { } |
|
|
0 |
0 |
elsif ($next == $mr->{'enter_search_string'}) { } |
|
|
0 |
0 |
elsif ($next == $mr->{'returned_from_filtered_table'}) { } |
|
216
|
0 |
0 |
unless (defined $term_w) |
|
247
|
0 |
0 |
unless (defined $w_cols_calc) |
|
253
|
0 |
0 |
if (length $self->{'prompt'}) |
|
256
|
0 |
0 |
if (length $self->{'info'} or length $self->{'prompt'}) |
|
262
|
0 |
0 |
if ($const->{'info_row'}) |
|
263
|
0 |
0 |
if (print_columns($const->{'info_row'}) > $tbl_w) { } |
|
278
|
0 |
0 |
if ($search->{'filter'}) |
|
283
|
0 |
0 |
if ($self->{'footer'}) |
|
285
|
0 |
0 |
if ($search->{'filter'}) |
|
289
|
0 |
0 |
exists $ENV{'TC_POS_AT_SEARCH'} && !$search->{'filter'} ? : |
|
294
|
0 |
0 |
if ($term_w != get_term_width() + $const->{'extra_w'}) |
|
297
|
0 |
0 |
unless (@{$tbl_print;}) |
|
309
|
0 |
0 |
@idxs_tbl_print ? : |
|
310
|
0 |
0 |
if (not defined $row) { } |
|
|
0 |
0 |
elsif ($row < 0) { } |
|
314
|
0 |
0 |
if ($row == -1) { } |
|
|
0 |
0 |
elsif ($row == -13) { } |
|
318
|
0 |
0 |
if ($search->{'filter'}) |
|
327
|
0 |
0 |
if (not $self->{'table_expand'}) { } |
|
328
|
0 |
0 |
if ($row == 0) |
|
334
|
0 |
0 |
if ($old_row == $row) |
|
335
|
0 |
0 |
if ($row == 0) { } |
|
|
0 |
0 |
elsif ($ENV{'TC_RESET_AUTO_UP'}) { } |
|
336
|
0 |
0 |
if ($self->{'table_expand'}) |
|
337
|
0 |
0 |
if ($row_is_expanded) |
|
340
|
0 |
0 |
if ($auto_jumped_to_first_row == 1) |
|
358
|
0 |
0 |
if ($const->{'info_row'} and $row == $#{$tbl_print;}) |
|
367
|
0 |
0 |
if (@{$search->{'map_indexes'};}) { } |
|
388
|
0 |
0 |
unless defined $str |
|
389
|
0 |
0 |
if ref $str |
|
390
|
0 |
0 |
if ($self->{'squash_spaces'}) |
|
395
|
0 |
0 |
if ($self->{'color'}) |
|
399
|
0 |
0 |
if ($self->{'binary_filter'} and substr($str, 0, 100) =~ /[\x00-\x08\x0B-\x0C\x0E-\x1F]/) |
|
400
|
0 |
0 |
if ($self->{'binary_filter'} == 2) { } |
|
413
|
0 |
0 |
if (@$tbl_copy == $self->{'max_rows'}) |
|
416
|
0 |
0 |
if ($progress->{'count_progress_bars'}) |
|
417
|
0 |
0 |
if ($count >= $progress->{'next_update'}) |
|
423
|
0 |
0 |
if ($progress->{'count_progress_bars'}) |
|
447
|
0 |
0 |
if (not length $tbl_copy->[$row][$col]) { } |
|
|
0 |
0 |
elsif (&looks_like_number($tbl_copy->[$row][$col])) { } |
|
451
|
0 |
0 |
if ($tbl_copy->[$row][$col] =~ /$regex_number/) { } |
|
452
|
0 |
0 |
if ((length $1 // 0) > $w_int->[$col]) |
|
455
|
0 |
0 |
if ((length $2 // 0) > $w_fract->[$col]) |
|
461
|
0 |
0 |
if (length $tbl_copy->[$row][$col] > $w_cols->[$col]) |
|
468
|
0 |
0 |
if ($str_w > $w_cols->[$col]) |
|
473
|
0 |
0 |
if ($progress->{'count_progress_bars'}) |
|
474
|
0 |
0 |
if ($count >= $progress->{'next_update'}) |
|
481
|
0 |
0 |
if ($w_int->[$col] + $w_fract->[$col] > $w_cols->[$col]) |
|
486
|
0 |
0 |
if ($progress->{'count_progress_bars'}) |
|
498
|
0 |
0 |
if ($sum < $avail_w) { } |
|
|
0 |
0 |
elsif ($sum > $avail_w) { } |
|
503
|
0 |
0 |
if ($w_col_names->[$col] > $w_cols_calc->[$col]) |
|
506
|
0 |
0 |
if ($sum == $avail_w) |
|
511
|
0 |
0 |
if ($sum == $prev_sum) |
|
517
|
0 |
0 |
if ($self->{'trunc_fract_first'}) |
|
522
|
0 |
0 |
if ($w_fract->[$col] and $w_fract->[$col] > 3) |
|
529
|
0 |
0 |
if ($sum == $avail_w) |
|
534
|
0 |
0 |
if ($sum == $prev_sum) |
|
539
|
0 |
0 |
$self->{'min_col_width'} < 2 ? : |
|
545
|
0 |
0 |
if ($w_cols_calc->[$col] > $min_col_width) |
|
547
|
0 |
0 |
if ($reduced_col_w < $min_col_width) |
|
550
|
0 |
0 |
if ($w_fract->[$col] > 2) |
|
552
|
0 |
0 |
if ($w_fract->[$col] < 2) |
|
568
|
0 |
0 |
if ($sum == $prev_sum) |
|
570
|
0 |
0 |
if ($min_col_width == 2) |
|
577
|
0 |
0 |
if ($remainder_w) |
|
582
|
0 |
0 |
if ($w_cols_calc->[$col] < $w_cols->[$col]) |
|
585
|
0 |
0 |
if ($remainder_w == 0) |
|
590
|
0 |
0 |
if ($remainder_w == $prev_remainder_w) |
|
612
|
0 |
0 |
if (not length $tbl_copy->[$row][$col]) { } |
|
|
0 |
0 |
elsif (&looks_like_number($tbl_copy->[$row][$col])) { } |
|
617
|
0 |
0 |
if ($w_fract->[$col]) { } |
|
619
|
0 |
0 |
if ($tbl_copy->[$row][$col] =~ /$regex_number/) { } |
|
620
|
0 |
0 |
if (length $2) { } |
|
621
|
0 |
0 |
if (length $2 > $w_fract->[$col]) { } |
|
|
0 |
0 |
elsif (length $2 < $w_fract->[$col]) { } |
|
634
|
0 |
0 |
length $1 ? : |
|
644
|
0 |
0 |
if (length $number > $w_cols_calc->[$col]) { } |
|
|
0 |
0 |
elsif (length $number < $w_cols_calc->[$col]) { } |
|
645
|
0 |
0 |
$number =~ /^-/ ? : |
|
647
|
0 |
0 |
if ($w_cols_calc->[$col] < $signed_1_precision_w) { } |
|
657
|
0 |
0 |
if (length $number > $w_cols_calc->[$col]) { } |
|
|
0 |
0 |
elsif (length $number < $w_cols_calc->[$col]) { } |
|
677
|
0 |
0 |
if ($str_w > $w_cols_calc->[$col]) { } |
|
|
0 |
0 |
elsif ($str_w < $w_cols_calc->[$col]) { } |
|
687
|
0 |
0 |
if ($self->{'color'}) |
|
688
|
0 |
0 |
if (defined $tbl_orig->[$row][$col]) |
|
691
|
0 |
0 |
if (@color) |
|
696
|
0 |
0 |
if ($col != $#$w_cols_calc) |
|
701
|
0 |
0 |
if ($progress->{'count_progress_bars'}) |
|
702
|
0 |
0 |
if ($count >= $progress->{'next_update'}) |
|
708
|
0 |
0 |
if ($progress->{'count_progress_bars'}) |
|
719
|
0 |
0 |
if ($max_key_w > int $term_w / 3) |
|
733
|
0 |
0 |
if ($self->{'color'}) |
|
735
|
0 |
0 |
if push @key_color, $1 |
|
737
|
0 |
0 |
if ($self->{'binary_filter'} and substr($key, 0, 100) =~ /[\x00-\x08\x0B-\x0C\x0E-\x1F]/) |
|
738
|
0 |
0 |
if ($self->{'binary_filter'} == 2) { } |
|
744
|
0 |
0 |
if (@key_color) |
|
752
|
0 |
0 |
if ($key_w > $max_key_w) { } |
|
|
0 |
0 |
elsif ($key_w < $max_key_w) { } |
|
758
|
0 |
0 |
if (@key_color) |
|
764
|
0 |
0 |
unless (length $value) |
|
767
|
0 |
0 |
if (ref $value) |
|
770
|
0 |
0 |
if ($self->{'color'}) |
|
772
|
0 |
0 |
if ($col and length $tbl_orig->[$row][$col - 1]) |
|
774
|
0 |
0 |
if ($tmp_last_color and not $tmp_last_color =~ /^\e\[0?m/) |
|
778
|
0 |
0 |
if ($last_color_prev_value and not substr($value, 0, 100) =~ /[\x00-\x08\x0B-\x0C\x0E-\x1F]/) |
|
786
|
0 |
0 |
if (not $count++) { } |
|
807
|
0 |
0 |
unless ($self->{'search'}) |
|
818
|
0 |
0 |
defined $error_message ? : |
|
823
|
0 |
0 |
unless (length $string) |
|
827
|
0 |
0 |
unless (eval {
do {
$search->{'filter'} = $self->{'search'} == 1 ? qr/$string/i : qr/$string/;
"Teststring" =~ /$search->{'filter'}/;
1
}
}) |
|
828
|
0 |
0 |
$self->{'search'} == 1 ? : |
|
832
|
0 |
0 |
$default eq $string ? : |
|
844
|
0 |
0 |
if ($tbl_orig->[$idx_row][$_] =~ /$search->{'filter'}/) |
|
850
|
0 |
0 |
unless (@{$search->{'map_indexes'};}) |
|
877
|
0 |
0 |
if ($col != $#$w_cols_calc) |