| line |
true |
false |
branch |
|
32
|
0 |
0 |
if defined $self->{'mail_hdr_list'}[$i] |
|
39
|
0 |
0 |
if ($deleted) |
|
45
|
0 |
0 |
if ref $_ |
|
|
0 |
0 |
unless @$ref = grep({defined $$_ if ref $_;} @$ref) |
|
70
|
0 |
27 |
if $maxlen < 20 |
|
79
|
0 |
27 |
if $_[0] =~ /^From\s/io |
|
81
|
14 |
13 |
if (length $_[0] > $maxlen) |
|
82
|
9 |
5 |
if ($_[0] =~ /^([-\w]+)/ and exists $STRUCTURE{lc $1}) { } |
|
121
|
3 |
66 |
/^[b-df-hj-np-tv-z]+$|^(?:MIME|SWE|SOAP|LDAP|ID)$/i ? : |
|
137
|
0 |
25 |
unless defined $tag |
|
140
|
0 |
25 |
if (defined $tag and $tag =~ /^From /io and $self->{'mail_hdr_mail_from'} ne 'KEEP') |
|
141
|
0 |
0 |
if ($self->{'mail_hdr_mail_from'} eq 'COERCE') { } |
|
|
0 |
0 |
elsif ($self->{'mail_hdr_mail_from'} eq 'IGNORE') { } |
|
|
0 |
0 |
elsif ($self->{'mail_hdr_mail_from'} eq 'ERROR') { } |
|
153
|
25 |
0 |
if (defined $tag) |
|
155
|
9 |
16 |
if $modify |
|
156
|
25 |
0 |
if defined $ctag |
|
159
|
0 |
25 |
unless defined $ctag and $ctag =~ /^($FIELD_NAME|From )/io |
|
163
|
15 |
10 |
if (defined $ctag and $modify || !($line =~ /^\Q$ctag\E/i)) |
|
172
|
9 |
16 |
if ($modify and defined $maxlen) { } |
|
|
1 |
15 |
elsif ($line =~ /\r?\n\S/) { } |
|
189
|
24 |
0 |
if ($where < 0) { } |
|
|
0 |
0 |
elsif ($where >= @{$self->{'mail_hdr_list'};}) { } |
|
191
|
0 |
24 |
if $where < 0 |
|
204
|
18 |
6 |
if ($def and $where) { } |
|
205
|
18 |
0 |
if ($atend) { } |
|
210
|
0 |
0 |
if $r == $ref |
|
211
|
0 |
0 |
if $r == $def->[$i] |
|
226
|
5 |
6 |
@_ % 2 ? : |
|
230
|
8 |
3 |
unless exists $opt{'Modify'} |
|
243
|
0 |
11 |
if exists $opt{'FoldLength'} |
|
245
|
6 |
5 |
if (not ref $arg) { } |
|
|
5 |
0 |
elsif (ref $arg eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (defined fileno $arg) { } |
|
278
|
2 |
19 |
if $line =~ /^\r?$/ |
|
280
|
0 |
19 |
unless $line =~ /^($FIELD_NAME|From )/o |
|
288
|
18 |
1 |
if defined $line |
|
304
|
0 |
0 |
if (defined $ln and defined $line and $ln =~ /^[ \t]+/) |
|
309
|
0 |
0 |
if (defined $line) |
|
311
|
0 |
0 |
if defined $line |
|
316
|
0 |
0 |
if not defined $ln or $ln =~ /^\r?$/ |
|
318
|
0 |
0 |
unless $ln =~ /^($FIELD_NAME|From )/o |
|
337
|
1 |
0 |
if @_ |
|
341
|
0 |
1 |
if $self->{'mail_hdr_modify'} |
|
351
|
1 |
1 |
ref $value ? : |
|
355
|
0 |
2 |
if $self->{'mail_hdr_modify'} |
|
358
|
1 |
1 |
unless defined wantarray |
|
371
|
3 |
0 |
if @_ |
|
382
|
0 |
11 |
unless $choice =~ /^(IGNORE|ERROR|COERCE|KEEP)$/ |
|
385
|
11 |
0 |
if (ref $thing) { } |
|
396
|
0 |
28 |
if (@_ == 2) { } |
|
400
|
0 |
0 |
ref $thing ? : |
|
402
|
0 |
0 |
$len > 20 ? : |
|
409
|
3 |
25 |
if (defined $len) |
|
410
|
3 |
0 |
$len > 20 ? : |
|
411
|
0 |
3 |
if $self->{'mail_hdr_modify'} |
|
430
|
18 |
0 |
if defined $ln |
|
442
|
0 |
1 |
if (@_) |
|
444
|
0 |
0 |
unless my $list = $self->{'mail_hdr_hash'}{$tag} |
|
448
|
0 |
0 |
if defined $ln and defined $$ln |
|
457
|
6 |
0 |
if defined $ln and defined $$ln |
|
470
|
0 |
6 |
unless defined $tag and defined $line |
|
473
|
6 |
0 |
unless defined $where |
|
485
|
0 |
0 |
@_ % 2 ? : |
|
492
|
0 |
0 |
unless defined $tag and defined $line |
|
496
|
0 |
0 |
if ($field and defined $field->[$idx]) { } |
|
511
|
0 |
0 |
if $tag =~ /^From /io and $self->{'mail_hdr_mail_from'} ne 'KEEP' |
|
514
|
0 |
0 |
unless my $def = $self->{'mail_hdr_hash'}{$tag} |
|
517
|
0 |
0 |
if @$def <= 1 |
|
535
|
3 |
23 |
unless my $def = $self->{'mail_hdr_hash'}{$tag} |
|
539
|
23 |
0 |
unless $tag =~ / $/o |
|
541
|
20 |
3 |
if (defined $idx or not wantarray) |
|
543
|
0 |
20 |
unless defined $def->[$idx] |
|
545
|
0 |
20 |
unless defined $val |
|
561
|
0 |
0 |
defined $def ? : |
|
572
|
0 |
2 |
if (my $def = $self->{'mail_hdr_hash'}{$tag}) |
|
574
|
0 |
0 |
unless $tag =~ / $/ |
|
576
|
0 |
0 |
if (defined $idx) { } |
|
577
|
0 |
0 |
if (defined $def->[$idx]) |
|
599
|
0 |
6 |
unless defined $ln |
|
600
|
0 |
6 |
unless print $fd $ln |
|
617
|
0 |
0 |
@_ ? : |
|
620
|
0 |
0 |
if $$field =~ /^\S+\s+\S/s |
|
626
|
0 |
0 |
if $deleted |