Condition Coverage

blib/lib/Text/PrettyTable.pm
Criterion Covered Total %
condition 22 47 46.8


and 3 conditions

line !l l&&!r l&&r condition
55 0 15 0 local(@border) = ref $uni ? @$uni : map({utf8::decode(my $c = $_); $c;} @borderu) and not $uni
4 0 15 $uni and $self->{'_level'} == 1
77 1 0 0 defined &JSON::true && JSON::true() eq $val
1 0 0 defined &JSON::false && JSON::false() eq $val
82 0 0 0 $_split and $val =~ /^\Q$border[4]\E/
0 0 0 $_split and $val =~ /^\Q$border[4]\E/ and $val =~ /\Q$border[14]\E$/
85 24 12 42 $val =~ /\D/ and $bucket == \@bucket
104 0 1 4 $data->[0] and ref $data->[0] eq "HASH"
1 0 4 $data->[0] and ref $data->[0] eq "HASH" and not $self->{'collapse'}
127 0 19 0 not $self->{'collapse'} and my $cols = $self->{'auto_collapse'}

or 2 conditions

line l !l condition
43 1 3 $args || {}
50 0 19 $self->{'_level'} || 0
123 0 19 $self->{'indent'} || ''
128 0 0 $ENV{'COLUMNS'} || eval { do { die unless -t STDOUT; require Term::ReadKey; (Term::ReadKey::GetTerminalSize(\*STDOUT))[0] } } || 80

or 3 conditions

line l !l&&r !l&&!r condition
53 0 19 0 $self->{'split'} || $split
55 0 15 0 local(@border) = ref $uni ? @$uni : map({utf8::decode(my $c = $_); $c;} @borderu) and not $uni or local $qr_escape = '[^ -~' . join("", @border) . ']'
90 41 4 34 not $max[$j] or $max[$j] < length $chunk