| line |
true |
false |
branch |
|
26
|
0 |
12 |
unless $self->SUPER::init($args) |
|
36
|
0 |
7 |
if $sep eq "From " |
|
43
|
0 |
7 |
if $sep eq "From " |
|
49
|
0 |
7 |
@_ ? : |
|
64
|
26 |
66 |
if $line =~ /$empty/ |
|
67
|
0 |
66 |
unless (defined $body) |
|
71
|
0 |
0 |
if (@ret and $self->fixHeaderErrors) { } |
|
82
|
0 |
66 |
unless length $body |
|
86
|
3 |
66 |
$line =~ /^[ \t]/ ? : |
|
102
|
0 |
0 |
unless defined $sep |
|
106
|
0 |
0 |
unless $file->seek($where, 0) |
|
114
|
0 |
0 |
unless defined $line |
|
116
|
0 |
0 |
if substr($line, 0, length $sep) eq $sep |
|
124
|
0 |
20 |
unless defined $sep |
|
135
|
0 |
20 |
unless defined $line |
|
138
|
20 |
0 |
if substr($line, 0, length $sep) eq $sep |
|
153
|
20 |
12 |
if (@seps) { } |
|
158
|
0 |
85 |
unless my $line = $file->getline |
|
162
|
80 |
20 |
if substr($line, 0, length $sep) ne $sep |
|
165
|
0 |
20 |
if $sep eq "From " and not $line =~ / 19[789][0-9]| 20[0-9][0-9]/ |
|
175
|
14 |
6 |
if (@$lines and $lines->[-1] =~ s/(\r?\n)\z//) |
|
176
|
11 |
3 |
if @seps == 1 and length $lines->[-1] == 0 |
|
180
|
12 |
0 |
ref $file eq 'Mail::Box::FastScalar' ? : |
|
184
|
32 |
0 |
if ($lines) |
|
185
|
0 |
32 |
if ($self->{'MBPP_strip_gt'}) |
|
188
|
0 |
32 |
unless ($self->{'MBPP_trusted'}) |
|
215
|
0 |
0 |
if (defined $exp_chars and $exp_chars >= 0) |
|
219
|
0 |
0 |
if ($self->_is_good_end($end)) |
|
221
|
0 |
0 |
if $self->{'MBPP_strip_gt'} |
|
255
|
0 |
0 |
if (defined $exp_chars) |
|
258
|
0 |
0 |
if ($self->_is_good_end($end)) |
|
271
|
0 |
12 |
unless my $mode = $args->{'mode'} |
|
274
|
0 |
12 |
unless $fh |
|
277
|
12 |
0 |
if $fh->can("binmode") or $fh->can("BINMODE") |
|
292
|
12 |
12 |
unless my $file = delete $self->{'MBPP_file'} |
|
302
|
0 |
0 |
@_ ? : |