Branch Coverage

blib/lib/Text/Autoformat.pm
Criterion Covered Total %
branch 88 198 44.4


line true false branch
81 130 0 if defined $_[0]
96 2 4 if $_[0]
113 3 4 if (ref $_ eq 'HASH') { }
4 0 elsif (not defined $text || ref $_ or overload::Method($_, '""')) { }
122 0 4 unless (defined $text)
127 1 3 unless $text =~ /\S/
129 1 2 unless exists $args{'right'}
130 3 0 unless exists $args{'justify'}
131 0 3 if ($args{'justify'} || '') =~ /full/
132 3 0 unless exists $args{'widow'}
133 3 0 unless exists $args{'case'}
134 2 1 unless exists $args{'lists'}
135 3 0 unless exists $args{'squeeze'}
136 3 0 unless exists $args{'gap'}
137 3 0 unless exists $args{'break'}
140 3 0 unless exists $args{'tabspace'}
141 3 0 unless exists $args{'renumber'}
142 3 0 unless exists $args{'autocentre'}
143 0 3 if $args{'justify'} =~ /cent(er(ed)?|red?)/
147 2 1 if ($args{'ignore'}) { }
155 1 2 if ($args{'mail'})
157 6 1 unless &$ignore(@_)
166 0 3 exists $args{'quoter'} ? :
176 0 26 unless s/\A([ \t]*)($quoter?)([ \t]*)//
184 0 26 unless s/([ \t]*)(.*?)(\s*)$//
198 10 13 if ($line->{'separator'} or $line->{'quoter'} ne $chunks[-1][-1]{'quoter'} or $line->{'empty'} or @chunks and $chunks[-1][-1]{'empty'}) { }
217 13 0 if not $args{'autocentre'} or @$chunk < 2 or $chunk->[0]{'hang'}
223 0 0 $line->{'quoter'} ? :
233 0 0 unless abs $length[$l][1] - $ave <= 2
234 0 0 if $l > 0
237 0 0 unless $diffpre
242 0 0 $line->{'quoter'} ? :
255 13 13 if ($first or $line->{'quoter'} ne $paras[-1]{'quoter'} or $paras[-1]{'separator'} or not $line->{'hang'}->empty) { }
268 3 10 if $extraspace < 0
278 3 0 if ($args{'all'}) { }
284 13 0 unless $args{'mail'} and /^--\s*$/
286 0 0 unless $remainder =~ /\n\z/
292 0 0 unless $remainder =~ /\n\z/
297 0 3 if ($args{'case'})
299 0 0 if $para->{'ignore'}
300 0 0 if (ref $args{'case'} eq 'CODE') { }
0 0 elsif ($args{'case'} =~ /upper/i) { }
0 0 elsif ($args{'case'} =~ /lower/i) { }
0 0 elsif ($args{'case'} =~ /title/i) { }
0 0 elsif ($args{'case'} =~ /highlight/i) { }
0 0 elsif ($args{'case'} =~ /sentence(\s*)/i) { }
317 0 0 if $trailer and $trailer ne ' '
334 4 9 if $para->{'ignore'}
336 0 9 if ($para->{'quoter'}) { }
338 0 0 if ($lastquoted) { }
350 4 9 if $para->{'ignore'}
354 3 6 unless defined $sigs{$sig}{'hangfields'}
358 3 0 unless $sig =~ /rom/
367 0 0 unless $fieldtype and $fieldtype =~ /rom|let/
368 0 0 if ($fieldtype eq 'let') { }
378 0 0 if ($romlen <= @{$val->{'hangref'};})
389 4 9 if $para->{'ignore'}
391 9 0 if ($args{'renumber'})
392 9 0 unless ($para->{'quoter'})
395 0 9 unless $para->{'hang'}->empty
404 9 0 if not $sigs{$sig}{'hanglen'} or $sigs{$sig}{'hanglen'} < $siglen
419 0 3 @paras && $paras[0]{'empty'} ? :
422 5 8 if ($para->{'empty'})
425 4 9 if ($para->{'ignore'}) { }
426 0 4 $args{'gap'} - $gap > 0 ? :
4 0 !$para->{'empty'} ? :
428 4 0 unless $para->{'raw'} =~ /\n\z/
432 0 9 $args{'left'} ? :
434 0 9 $hlen == 1 ? :
436 0 9 if $hlen
450 0 9 if blockquote($text, $para, $format, $tlen, \@hang, \%args)
455 0 9 $para->{'centred'} || $args{'_centred'} ? :
0 9 $args{'justify'} eq 'full' ? :
0 9 $args{'justify'} eq 'right' ? :
0 9 $para->{'centred'} || $args{'_centred'} ? :
0 9 $tlen == 1 ? :
467 0 4 $args{'gap'} > $gap ? :
4 5 !$para->{'empty'} ? :
474 9 0 $widow_okay ? :
476 8 5 unless $para->{'empty'}
482 0 3 if ($toSTDOUT)
490 3 1 if ($ig_type eq 'Regexp') { }
1 0 elsif ($ig_type eq 'ARRAY') { }
0 0 elsif ($ignore_arg =~ /^indent/i) { }
496 2 7 if &$sub(@_)
501 0 0 unless ignore_headers(@_)
506 0 4 if ref $ignore ne 'CODE'
524 0 0 if @pieces % 2
525 0 0 unless @pieces
527 0 0 if (length $_)
532 0 0 unless @pieces
549 0 0 $retitler_ref ? :
551 0 0 if ($retitler_ref == $STD_HIGHLIGHT_IGNORES)
578 0 0 unless (@_)
580 0 0 if ($str =~ /^([^a-z]*)I[^a-z]*?($term?)[^a-z]*$/i)
585 0 0 unless ($str =~ /[a-z].*[A-Z]|[A-Z].*[a-z]/)
588 0 0 if ($eos)
595 0 0 if $eos and $trailer
604 9 0 unless $para->{'text'} =~ / \A(\s*) # $1 - leading whitespace (quotation) (["']|``) # $2 - opening quotemark (.*) # $3 - quotation (''|\2) # $4 closing quotemark \s*?\n # trailing whitespace (\1[ ]+) # $5 - leading whitespace (attribution) (--|-) # $6 - attribution introducer (.*?$) # $7 - attribution line 1 ((\5.*?$)*) # $8 - attributions lines 2-N \s*\Z /msx