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'}
283 8 3 2 $lastignored &&= $paras[$index]{'ignore'}
284 6 7 0 $args{'mail'} and /^--\s*$/
317 0 0 0 $trailer and $trailer ne ' '
367 0 0 0 $fieldtype and $fieldtype =~ /rom|let/
419 0 3 0 @paras && $paras[0]{'empty'}
592 0 0 0 !($str =~ /^($gen_abbrev)[^a-z]*\s/i) && $str =~ /[a-z][^a-z]*$term([^a-z]*)\s/ && !($1 =~ /[])]/ && !$brsent)
595 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
404 9 0 0 not $sigs{$sig}{'hanglen'} or $sigs{$sig}{'hanglen'} < $siglen
433 0 0 9 $para->{'hanglen'} || $para->{'hang'}->length
444 9 0 0 $widow_okay or ++$rightindent > $rightslack
455 0 0 9 $para->{'centred'} || $args{'_centred'}
0 0 9 $para->{'centred'} || $args{'_centred'}
467 0 0 9 $args{'expfill'} || $args{'impfill'} && !$para->{'centred'}
468 0 9 0 $firsttext ||= $newtext
471 5 4 0 $para->{'empty'} || length $widow >= $args{'widow'}
534 0 0 0 $entities->{$_} || $_
537 0 0 0 $other_entities->{$_} || $_