| line |
true |
false |
branch |
|
229
|
78 |
8 |
if (scalar @_ == 1) |
|
230
|
0 |
78 |
if ($opts{uc $_[0]}) |
|
241
|
0 |
4 |
if ($opts{uc $k}) { } |
|
|
0 |
4 |
elsif (uc $k eq 'NEWLINE') { } |
|
249
|
2 |
6 |
if scalar @o |
|
252
|
0 |
8 |
if (ref $self->{'Charset'} eq 'MIME::Charset') { } |
|
260
|
8 |
0 |
unless ref $ocharset eq 'MIME::Charset' or $ocharset eq '_UNICODE_' |
|
262
|
8 |
0 |
unless ($ocharset eq '_UNICODE_') |
|
282
|
10 |
1006 |
if ($c eq "\t") { } |
|
283
|
10 |
0 |
if $tabsize |
|
294
|
0 |
8 |
if (defined $self->{'TabSize'}) { } |
|
295
|
0 |
0 |
unless $self->{'TabSize'} =~ /^\d+$/ |
|
302
|
0 |
8 |
if (defined $newline) |
|
303
|
0 |
0 |
unless &is_utf8($newline) |
|
357
|
2 |
11 |
if (2 < scalar @_) { } |
|
359
|
2 |
0 |
unless &is_utf8($initial_tab) |
|
362
|
2 |
0 |
unless &is_utf8($subsequent_tab) |
|
368
|
2 |
0 |
unless &is_utf8($str) |
|
370
|
0 |
0 |
unless defined $s and length $s |
|
372
|
0 |
0 |
unless &is_utf8($s) |
|
373
|
0 |
0 |
do {
$s =~ /^(\s|$special_break)/ unless $str =~ /(\s|$special_break)$/
} ? : |
|
|
0 |
0 |
length $str ? : |
|
375
|
0 |
0 |
unless $str =~ /(\s|$special_break)$/ |
|
379
|
0 |
0 |
if $self->breakingRule($str, $s) == 2 |
|
389
|
32 |
64 |
if ($event =~ /^eo/) |
|
390
|
14 |
50 |
if ($event =~ /^so[tp]/) |
|
391
|
18 |
32 |
if ($event eq 'sol') |
|
397
|
0 |
11 |
unless defined $str and length $str |
|
400
|
11 |
0 |
unless &is_utf8($str) |
|
410
|
0 |
13 |
if ($s =~ /$special_break/s) { } |
|
418
|
0 |
13 |
if ($self->{'OutputCharset'} eq '_UNICODE_') { } |
|
467
|
0 |
8 |
unless defined $str and length $str |
|
471
|
0 |
8 |
unless $method =~ /^(?:FIXED|FLOWED|FLOWEDSP|OBSFLOWED)$/ |
|
475
|
8 |
0 |
unless &is_utf8($str) |
|
481
|
0 |
8 |
if ($s eq '') { } |
|
|
0 |
8 |
elsif ($s =~ /$special_break/s) { } |
|
|
3 |
5 |
elsif ($method eq 'FIXED') { } |
|
|
5 |
0 |
elsif ($method eq 'FLOWED' or $method eq 'FLOWEDSP' or $method eq 'OBSFLOWED') { } |
|
489
|
6 |
42 |
if ($s =~ /\G\n/cg) { } |
|
|
15 |
27 |
elsif ($s =~ /\G(.+)\n\n/cg) { } |
|
|
9 |
18 |
elsif ($s =~ /\G(>.*)\n/cg) { } |
|
|
0 |
18 |
elsif ($s =~ /\G(.+)\n(?=>)/cg) { } |
|
|
18 |
0 |
elsif ($s =~ /\G(.+?)( *)\n(?=(.+))/cg) { } |
|
|
0 |
0 |
elsif ($s =~ /\G(.+)\n/cg) { } |
|
|
0 |
0 |
elsif ($s =~ /\G(.+)/cg) { } |
|
500
|
0 |
18 |
if ($n =~ /^ /) { } |
|
|
0 |
18 |
elsif (length $s) { } |
|
|
18 |
0 |
elsif (length $l) { } |
|
505
|
11 |
7 |
if $self->breakingRule($l, $n) == 2 |
|
520
|
26 |
70 |
if ($s =~ /\G(>+) ?(.*?)( ?)\n/cg) { } |
|
|
70 |
0 |
elsif ($s =~ /\G ?(.*?)( ?)\n/cg) { } |
|
|
0 |
0 |
elsif ($s =~ /\G ?(.*)/cg) { } |
|
522
|
1 |
8 |
do {
$p ne $prefix
} ? : |
|
|
9 |
17 |
defined $prefix ? : |
|
530
|
9 |
17 |
if (length $s) { } |
|
535
|
7 |
2 |
unless $delsp |
|
539
|
0 |
40 |
do {
'' ne $prefix
} ? : |
|
|
40 |
30 |
defined $prefix ? : |
|
547
|
40 |
30 |
if (length $s) { } |
|
551
|
3 |
37 |
unless $delsp |
|
562
|
0 |
8 |
if ($self->{'OutputCharset'} eq '_UNICODE_') { } |