Condition Coverage

blib/lib/Text/Diff/Table.pm
Criterion Covered Total %
condition 16 34 47.0


and 3 conditions

line !l l&&!r l&&r condition
232 0 0 0 defined $_ && length $_
275 0 2 23 defined $cols->[$i] and length $cols->[$i] > $w[$i]

or 2 conditions

line l !l condition
100 8 0 $options->{'OFFSET_A'} || 0
102 7 0 $options->{'OFFSET_B'} || 0

or 3 conditions

line l !l&&r !l&&!r condition
100 0 8 7 $opcode eq ' ' or $opcode eq '-'
102 0 7 8 $opcode eq ' ' or $opcode eq '+'
121 0 0 1 $elt_type eq '=' or $A->[1] =~ /\S/
0 0 1 $elt_type eq '=' or $A->[1] =~ /\S/ or $B->[1] =~ /\S/
162 4 0 3 $added_escapes || do { my $expanded_A = &expand_tabs(join($body_A, $l_ws_A, $t_ws_A)); my $expanded_B = &expand_tabs(join($body_B, $l_ws_B, $t_ws_B)); $expanded_A eq $expanded_B }
168 4 0 3 $do_tab_escape || do { my($unescaped_A, $escaped_A, $unescaped_B, $escaped_B) = map(join('', /(\\.)/g), map({$_, &escape($_);} &expand_tabs(join($body_A, $l_ws_A, $t_ws_A)), &expand_tabs(join($body_B, $l_ws_B, $t_ws_B)))); $escaped_A eq $escaped_B if $unescaped_A ne $unescaped_B }
217 0 0 8 defined $options->{'FILENAME_A'} or defined $options->{'FILENAME_B'}
229 0 0 8 defined $options->{'MTIME_A'} or defined $options->{'MTIME_B'}