Branch Coverage

blib/lib/Text/Table.pm
Criterion Covered Total %
branch 96 124 77.4


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)