| line |
true |
false |
branch |
|
45
|
7 |
9 |
ref $sep eq 'HASH' ? : |
|
51
|
0 |
16 |
unless (defined $sep) |
|
58
|
8 |
8 |
unless (defined $body) |
|
77
|
223 |
63 |
unless (defined $$ref and length $$ref) |
|
95
|
2 |
90 |
unless (defined $spec) |
|
102
|
34 |
58 |
if (ref $spec eq 'HASH') { } |
|
107
|
21 |
37 |
if ($spec =~ /$alispec/) { } |
|
114
|
79 |
37 |
if (defined $s) |
|
124
|
60 |
124 |
if (not defined $x) { } |
|
|
104 |
20 |
elsif (ref $x ne 'ARRAY') { } |
|
136
|
0 |
92 |
unless (ref $align eq "Regexp" or $align =~ /^(?:left|center|right|num\(?|point\(?|auto)/) |
|
146
|
0 |
92 |
unless (_is_align($align_title)) |
|
155
|
0 |
92 |
unless (_is_align($align_title_lines)) |
|
185
|
189 |
28 |
if (@_) |
|
197
|
39 |
310 |
if (@_) |
|
209
|
39 |
141 |
if (@_) |
|
221
|
189 |
226 |
if (@_) |
|
233
|
39 |
220 |
if (@_) |
|
245
|
39 |
291 |
if (@_) |
|
260
|
16 |
66 |
if (_is_sep($sep_item)) { } |
|
305
|
180 |
30 |
if (not defined $seps->[$idx]) { } |
|
307
|
136 |
44 |
$idx == 0 || $idx == $#$seps ? : |
|
323
|
30 |
180 |
defined $_ ? : |
|
349
|
10 |
0 |
unless (_is_sep($arg)) |
|
364
|
8 |
5 |
unless ref $group eq "ARRAY" |
|
367
|
0 |
5 |
if (_is_sep($g)) |
|
373
|
2 |
3 |
if (grep {$_;} @{$tb->_cols->[$g];}) |
|
389
|
15 |
0 |
if -$n <= $i |
|
391
|
0 |
15 |
if $@ or not $ok |
|
410
|
4 |
53 |
unless ($tb->n_cols) |
|
417
|
142 |
1 |
defined $_ ? : |
|
446
|
0 |
49 |
unless (defined $row) |
|
450
|
34 |
15 |
ref $row eq 'ARRAY' ? : |
|
477
|
221 |
4 |
if $_[0]->n_cols |
|
510
|
2 |
14 |
if ($col_index < 0) |
|
515
|
0 |
16 |
if ($col_index < 0) { } |
|
|
2 |
14 |
elsif ($col_index > $tb->n_cols) { } |
|
533
|
0 |
16 |
unless $tb->width |
|
594
|
51 |
21 |
if (@_) |
|
596
|
0 |
51 |
@_ ? : |
|
617
|
51 |
21 |
wantarray ? : |
|
625
|
3 |
69 |
if $from < 0 |
|
626
|
0 |
72 |
unless defined $n |
|
628
|
3 |
69 |
if $from + $n < 0 or $from >= $total |
|
630
|
0 |
69 |
if $from < 0 |
|
631
|
0 |
69 |
if $n > $total - $from |
|
640
|
32 |
81 |
unless ($tb->_lines) |
|
655
|
133 |
26 |
defined $_ ? : |
|
732
|
2 |
123 |
if ($replace_spaces) |
|
746
|
4 |
6 |
if (defined $alt) { } |
|
748
|
86 |
13 |
$1 eq ' ' ? : |
|
752
|
1 |
5 |
if $char ne " " |
|
762
|
0 |
12 |
!$tb->width ? : |
|
769
|
2 |
10 |
ref $char eq 'CODE' ? : |
|
780
|
2 |
10 |
if (ref $char eq 'CODE') { } |
|
817
|
7 |
7 |
$s =~ /\A / ? : |
|
853
|
0 |
0 |
if ($toggle eq 'off') { } |
|
|
0 |
0 |
elsif ($toggle eq 'fatal') { } |
|
865
|
0 |
0 |
$warn ? : |
|
|
0 |
0 |
$fatal ? : |
|
872
|
0 |
0 |
unless $warn |
|
874
|
0 |
0 |
if ($fatal) |