Condition Coverage

blib/lib/Text/Autoformat.pm
Criterion Covered Total %
condition 37 95 38.9


and 3 conditions

line !l l&&!r l&&r condition
188 0 21 5 $lines[-1]{'hang'}->empty && !($2 =~ /\S/)
198 0 18 0 @chunks and $chunks[-1][-1]{'empty'}
282 8 3 2 $lastignored &&= $paras[$index]{'ignore'}
283 6 7 0 $args{'mail'} and /^--\s*$/
316 0 0 0 $trailer and $trailer ne ' '
366 0 0 0 $fieldtype and $fieldtype =~ /rom|let/
418 0 3 0 @paras && $paras[0]{'empty'}
591 0 0 0 !($str =~ /^($gen_abbrev)[^a-z]*\s/i) && $str =~ /[a-z][^a-z]*$term([^a-z]*)\s/ && !($1 =~ /[])]/ && !$brsent)
594 0 0 0 $eos and $trailer

or 2 conditions

line l !l condition
131 0 3 $args{'justify'} || ''

or 3 conditions

line l !l&&r !l&&!r condition
113 0 0 4 defined $text || ref $_
4 0 0 not defined $text || ref $_ or overload::Method($_, '""')
144 1 1 1 $args{'all'} ||= $args{'mail'}
198 0 0 23 $line->{'separator'} or $line->{'quoter'} ne $chunks[-1][-1]{'quoter'}
0 0 23 $line->{'separator'} or $line->{'quoter'} ne $chunks[-1][-1]{'quoter'} or $line->{'empty'}
5 0 18 $line->{'separator'} or $line->{'quoter'} ne $chunks[-1][-1]{'quoter'} or $line->{'empty'} or @chunks and $chunks[-1][-1]{'empty'}
217 0 6 7 not $args{'autocentre'} or @$chunk < 2
6 0 7 not $args{'autocentre'} or @$chunk < 2 or $chunk->[0]{'hang'}
234 0 0 0 $diffpre ||= $length[$l - 1][0] != $length[$l][0]
255 13 0 13 $first or $line->{'quoter'} ne $paras[-1]{'quoter'}
13 0 13 $first or $line->{'quoter'} ne $paras[-1]{'quoter'} or $paras[-1]{'separator'}
0 0 13 $first or $line->{'quoter'} ne $paras[-1]{'quoter'} or $paras[-1]{'separator'} or not $line->{'hang'}->empty
403 9 0 0 not $sigs{$sig}{'hanglen'} or $sigs{$sig}{'hanglen'} < $siglen
432 0 0 9 $para->{'hanglen'} || $para->{'hang'}->length
443 9 0 0 $widow_okay or ++$rightindent > $rightslack
454 0 0 9 $para->{'centred'} || $args{'_centred'}
0 0 9 $para->{'centred'} || $args{'_centred'}
466 0 0 9 $args{'expfill'} || $args{'impfill'} && !$para->{'centred'}
467 0 9 0 $firsttext ||= $newtext
470 5 4 0 $para->{'empty'} || length $widow >= $args{'widow'}
533 0 0 0 $entities->{$_} || $_
536 0 0 0 $other_entities->{$_} || $_