| 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) { } |
|
277
|
3 |
0 |
if ($args{'all'}) { } |
|
283
|
13 |
0 |
unless $args{'mail'} and /^--\s*$/ |
|
285
|
0 |
0 |
unless $remainder =~ /\n\z/ |
|
291
|
0 |
0 |
unless $remainder =~ /\n\z/ |
|
296
|
0 |
3 |
if ($args{'case'}) |
|
298
|
0 |
0 |
if $para->{'ignore'} |
|
299
|
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) { } |
|
316
|
0 |
0 |
if $trailer and $trailer ne ' ' |
|
333
|
4 |
9 |
if $para->{'ignore'} |
|
335
|
0 |
9 |
if ($para->{'quoter'}) { } |
|
337
|
0 |
0 |
if ($lastquoted) { } |
|
349
|
4 |
9 |
if $para->{'ignore'} |
|
353
|
3 |
6 |
unless defined $sigs{$sig}{'hangfields'} |
|
357
|
3 |
0 |
unless $sig =~ /rom/ |
|
366
|
0 |
0 |
unless $fieldtype and $fieldtype =~ /rom|let/ |
|
367
|
0 |
0 |
if ($fieldtype eq 'let') { } |
|
377
|
0 |
0 |
if ($romlen <= @{$val->{'hangref'};}) |
|
388
|
4 |
9 |
if $para->{'ignore'} |
|
390
|
9 |
0 |
if ($args{'renumber'}) |
|
391
|
9 |
0 |
unless ($para->{'quoter'}) |
|
394
|
0 |
9 |
unless $para->{'hang'}->empty |
|
403
|
9 |
0 |
if not $sigs{$sig}{'hanglen'} or $sigs{$sig}{'hanglen'} < $siglen |
|
418
|
0 |
3 |
@paras && $paras[0]{'empty'} ? : |
|
421
|
5 |
8 |
if ($para->{'empty'}) |
|
424
|
4 |
9 |
if ($para->{'ignore'}) { } |
|
425
|
4 |
0 |
!$para->{'empty'} ? : |
|
427
|
4 |
0 |
unless $para->{'raw'} =~ /\n\z/ |
|
431
|
0 |
9 |
$args{'left'} ? : |
|
433
|
0 |
9 |
$hlen == 1 ? : |
|
435
|
0 |
9 |
if $hlen |
|
449
|
0 |
9 |
if blockquote($text, $para, $format, $tlen, \@hang, \%args) |
|
454
|
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 ? : |
|
466
|
4 |
5 |
!$para->{'empty'} ? : |
|
473
|
9 |
0 |
$widow_okay ? : |
|
475
|
8 |
5 |
unless $para->{'empty'} |
|
481
|
0 |
3 |
if ($toSTDOUT) |
|
489
|
3 |
1 |
if ($ig_type eq 'Regexp') { } |
|
|
1 |
0 |
elsif ($ig_type eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($ignore_arg =~ /^indent/i) { } |
|
495
|
2 |
7 |
if &$sub(@_) |
|
500
|
0 |
0 |
unless ignore_headers(@_) |
|
505
|
0 |
4 |
if ref $ignore ne 'CODE' |
|
523
|
0 |
0 |
if @pieces % 2 |
|
524
|
0 |
0 |
unless @pieces |
|
526
|
0 |
0 |
if (length $_) |
|
531
|
0 |
0 |
unless @pieces |
|
548
|
0 |
0 |
$retitler_ref ? : |
|
550
|
0 |
0 |
if ($retitler_ref == $STD_HIGHLIGHT_IGNORES) |
|
577
|
0 |
0 |
unless (@_) |
|
579
|
0 |
0 |
if ($str =~ /^([^a-z]*)I[^a-z]*?($term?)[^a-z]*$/i) |
|
584
|
0 |
0 |
unless ($str =~ /[a-z].*[A-Z]|[A-Z].*[a-z]/) |
|
587
|
0 |
0 |
if ($eos) |
|
594
|
0 |
0 |
if $eos and $trailer |
|
603
|
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 |