Branch Coverage

blib/lib/Text/PrettyTable.pm
Criterion Covered Total %
branch 45 82 54.8


line true false branch
34 12 3 ref $_[0] ? :
42 4 22 if (not ref $self) { }
7 15 elsif ($args) { }
52 5 14 exists $self->{'unibox'} ? :
53 19 0 if $self->{'_level'} == 1
55 0 15 ref $uni ? :
15 4 if $uni and $self->{'_level'} == 1
63 0 32 unless (ref $cols)
64 0 0 $split ? :
73 0 78 if (not defined $val) { }
1 77 elsif (ref $val) { }
76 1 0 if (UNIVERSAL::isa($val, 'SCALAR')) { }
77 0 1 defined &JSON::false && JSON::false() eq $val ? :
0 1 defined &JSON::true && JSON::true() eq $val ? :
82 0 0 if $_split and $val =~ /^\Q$border[4]\E/ and $val =~ /\Q$border[14]\E$/
85 42 36 if $val =~ /\D/ and $bucket == \@bucket
87 78 0 $_split ? :
90 45 34 if not $max[$j] or $max[$j] < length $chunk
96 14 5 if (UNIVERSAL::isa($data, 'HASH')) { }
5 0 elsif (UNIVERSAL::isa($data, 'ARRAY')) { }
98 0 14 if $title
99 0 0 $b eq 'id' ? :
0 0 if ($a eq 'id') { }
14 0 unless $self->{'sort'}
101 0 14 unless @bucket
104 4 1 if ($data->[0] and ref $data->[0] eq 'HASH' and not $self->{'collapse'}) { }
106 0 0 $b eq 'id' ? :
0 0 if ($a eq 'id') { }
0 4 unless $self->{'sort'}
109 0 12 if (ref $row ne "HASH")
117 0 1 if $title
119 0 1 unless @bucket
125 33 8 $dir[$_] ? :
127 0 19 if (not $self->{'collapse'} and my $cols = $self->{'auto_collapse'})
128 0 0 if $cols eq 1
129 0 0 if (length($sep) - 1 > $cols)
131 0 0 if $self->{'_level'} == 1
141 33 0 if (ref $row) { }
147 19 19 if ($buck == \@title) { }
148 4 15 if @title
154 19 0 if $self->{'_level'} == 1