| line |
true |
false |
branch |
|
81
|
150 |
0 |
if defined $_[0] |
|
96
|
2 |
4 |
if $_[0] |
|
113
|
5 |
6 |
if (ref $_ eq 'HASH') { } |
|
|
6 |
0 |
elsif (not defined $text || ref $_ or overload::Method($_, '""')) { } |
|
122
|
0 |
6 |
unless (defined $text) |
|
127
|
1 |
5 |
unless $text =~ /\S/ |
|
129
|
3 |
2 |
unless exists $args{'right'} |
|
130
|
5 |
0 |
unless exists $args{'justify'} |
|
131
|
0 |
5 |
if ($args{'justify'} || '') =~ /full/ |
|
132
|
5 |
0 |
unless exists $args{'widow'} |
|
133
|
5 |
0 |
unless exists $args{'case'} |
|
134
|
2 |
3 |
unless exists $args{'lists'} |
|
135
|
5 |
0 |
unless exists $args{'squeeze'} |
|
136
|
5 |
0 |
unless exists $args{'gap'} |
|
137
|
5 |
0 |
unless exists $args{'break'} |
|
140
|
5 |
0 |
unless exists $args{'tabspace'} |
|
141
|
5 |
0 |
unless exists $args{'renumber'} |
|
142
|
5 |
0 |
unless exists $args{'autocentre'} |
|
143
|
0 |
5 |
if $args{'justify'} =~ /cent(er(ed)?|red?)/ |
|
147
|
2 |
3 |
if ($args{'ignore'}) { } |
|
155
|
1 |
4 |
if ($args{'mail'}) |
|
157
|
6 |
1 |
unless &$ignore(@_) |
|
166
|
0 |
5 |
exists $args{'quoter'} ? : |
|
176
|
0 |
30 |
unless s/\A([ \t]*)($quoter?)([ \t]*)// |
|
184
|
0 |
30 |
unless s/([ \t]*)(.*?)(\s*)$// |
|
198
|
10 |
15 |
if ($line->{'separator'} or $line->{'quoter'} ne $chunks[-1][-1]{'quoter'} or $line->{'empty'} or @chunks and $chunks[-1][-1]{'empty'}) { } |
|
217
|
15 |
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
|
17 |
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
|
5 |
0 |
if ($args{'all'}) { } |
|
284
|
17 |
0 |
unless $args{'mail'} and /^--\s*$/ |
|
286
|
0 |
0 |
unless $remainder =~ /\n\z/ |
|
292
|
0 |
0 |
unless $remainder =~ /\n\z/ |
|
297
|
0 |
5 |
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 |
13 |
if $para->{'ignore'} |
|
336
|
0 |
13 |
if ($para->{'quoter'}) { } |
|
338
|
0 |
0 |
if ($lastquoted) { } |
|
350
|
4 |
13 |
if $para->{'ignore'} |
|
354
|
5 |
8 |
unless defined $sigs{$sig}{'hangfields'} |
|
358
|
5 |
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 |
13 |
if $para->{'ignore'} |
|
391
|
13 |
0 |
if ($args{'renumber'}) |
|
392
|
13 |
0 |
unless ($para->{'quoter'}) |
|
395
|
4 |
9 |
unless $para->{'hang'}->empty |
|
404
|
11 |
2 |
if not $sigs{$sig}{'hanglen'} or $sigs{$sig}{'hanglen'} < $siglen |
|
419
|
0 |
5 |
@paras && $paras[0]{'empty'} ? : |
|
422
|
5 |
12 |
if ($para->{'empty'}) |
|
425
|
4 |
13 |
if ($para->{'ignore'}) { } |
|
426
|
0 |
4 |
$args{'gap'} - $gap > 0 ? : |
|
|
4 |
0 |
!$para->{'empty'} ? : |
|
428
|
4 |
0 |
unless $para->{'raw'} =~ /\n\z/ |
|
432
|
0 |
13 |
$args{'left'} ? : |
|
434
|
0 |
13 |
$hlen == 1 ? : |
|
436
|
4 |
9 |
if $hlen |
|
450
|
0 |
13 |
if blockquote($text, $para, $format, $tlen, \@hang, \%args) |
|
455
|
0 |
13 |
$para->{'centred'} || $args{'_centred'} ? : |
|
|
0 |
13 |
$args{'justify'} eq 'full' ? : |
|
|
0 |
13 |
$args{'justify'} eq 'right' ? : |
|
|
0 |
13 |
$para->{'centred'} || $args{'_centred'} ? : |
|
|
0 |
13 |
$tlen == 1 ? : |
|
467
|
0 |
8 |
$args{'gap'} > $gap ? : |
|
|
8 |
5 |
!$para->{'empty'} ? : |
|
474
|
13 |
0 |
$widow_okay ? : |
|
476
|
12 |
5 |
unless $para->{'empty'} |
|
482
|
0 |
5 |
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 |
|
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
|
13 |
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 |