| line |
true |
false |
branch |
|
47
|
7 |
9 |
ref $sep eq 'HASH' ? : |
|
53
|
0 |
16 |
unless (defined $sep) |
|
60
|
8 |
8 |
unless (defined $body) |
|
79
|
223 |
63 |
unless (defined $$ref and length $$ref) |
|
97
|
2 |
90 |
unless (defined $spec) |
|
104
|
34 |
58 |
if (ref $spec eq 'HASH') { } |
|
109
|
21 |
37 |
if ($spec =~ /$alispec/) { } |
|
116
|
79 |
37 |
if (defined $s) |
|
126
|
60 |
124 |
if (not defined $x) { } |
|
|
104 |
20 |
elsif (ref $x ne 'ARRAY') { } |
|
138
|
0 |
92 |
unless (ref $align eq 'Regexp' or $align =~ /^(?:left|center|right|num\(?|point\(?|auto)/) |
|
148
|
0 |
92 |
unless (_is_align($align_title)) |
|
157
|
0 |
92 |
unless (_is_align($align_title_lines)) |
|
187
|
189 |
28 |
if (@_) |
|
199
|
39 |
310 |
if (@_) |
|
211
|
39 |
141 |
if (@_) |
|
223
|
189 |
226 |
if (@_) |
|
235
|
39 |
220 |
if (@_) |
|
247
|
39 |
291 |
if (@_) |
|
262
|
16 |
66 |
if (_is_sep($sep_item)) { } |
|
307
|
180 |
30 |
if (not defined $seps->[$idx]) { } |
|
309
|
136 |
44 |
$idx == 0 || $idx == $#$seps ? : |
|
325
|
30 |
180 |
defined $_ ? : |
|
351
|
10 |
0 |
unless (_is_sep($arg)) |
|
366
|
8 |
5 |
unless ref $group eq 'ARRAY' |
|
369
|
0 |
5 |
if (_is_sep($g)) |
|
375
|
2 |
3 |
if (grep {$_;} @{$tb->_cols->[$g];}) |
|
391
|
15 |
0 |
if -$n <= $i |
|
393
|
0 |
15 |
if $@ or not $ok |
|
412
|
4 |
53 |
unless ($tb->n_cols) |
|
419
|
142 |
1 |
defined $_ ? : |
|
448
|
0 |
49 |
unless (defined $row) |
|
452
|
34 |
15 |
ref $row eq 'ARRAY' ? : |
|
479
|
221 |
4 |
if $_[0]->n_cols |
|
512
|
2 |
14 |
if ($col_index < 0) |
|
517
|
0 |
16 |
if ($col_index < 0) { } |
|
|
2 |
14 |
elsif ($col_index > $tb->n_cols) { } |
|
535
|
0 |
16 |
unless $tb->width |
|
596
|
51 |
21 |
if (@_) |
|
598
|
0 |
51 |
@_ ? : |
|
619
|
51 |
21 |
wantarray ? : |
|
627
|
3 |
69 |
if $from < 0 |
|
628
|
0 |
72 |
unless defined $n |
|
630
|
3 |
69 |
if $from + $n < 0 or $from >= $total |
|
632
|
0 |
69 |
if $from < 0 |
|
633
|
0 |
69 |
if $n > $total - $from |
|
642
|
32 |
81 |
unless ($tb->_lines) |
|
657
|
133 |
26 |
defined $_ ? : |
|
734
|
2 |
123 |
if ($replace_spaces) |
|
748
|
4 |
6 |
if (defined $alt) { } |
|
750
|
86 |
13 |
$1 eq ' ' ? : |
|
754
|
1 |
5 |
if $char ne ' ' |
|
764
|
0 |
12 |
!$tb->width ? : |
|
771
|
2 |
10 |
ref $char eq 'CODE' ? : |
|
782
|
2 |
10 |
if (ref $char eq 'CODE') { } |
|
819
|
7 |
7 |
$s =~ /\A / ? : |
|
855
|
0 |
0 |
if ($toggle eq 'off') { } |
|
|
0 |
0 |
elsif ($toggle eq 'fatal') { } |
|
867
|
0 |
0 |
$warn ? : |
|
|
0 |
0 |
$fatal ? : |
|
874
|
0 |
0 |
unless $warn |
|
876
|
0 |
0 |
if ($fatal) |