| line |
true |
false |
branch |
|
24
|
9 |
0 |
unless ($file eq 'FH' and $fh) |
|
26
|
0 |
9 |
unless -e $file |
|
27
|
0 |
9 |
if -d $file |
|
33
|
9 |
0 |
if (seek $fh, CORE::tell $fh, 0) { } |
|
41
|
1 |
8 |
if ($self->{'seek_to'}) { } |
|
42
|
0 |
1 |
unless ($self->{'seekable'}) |
|
51
|
7 |
1 |
if ($firstline) |
|
52
|
0 |
7 |
unless $firstline =~ /^From / |
|
63
|
0 |
9 |
unless my $fh = 'IO::File'->new($file) |
|
70
|
0 |
2884 |
if (not $self->{'seekable'} and @{$self->{'cache'};}) |
|
82
|
0 |
0 |
unless $self->{'_fh'} |
|
102
|
40 |
2270 |
if ($line eq $/ and $inheaders) |
|
106
|
40 |
0 |
if $self->{'seekable'} |
|
109
|
18 |
22 |
if ($mail =~ /^Content-Length:\s*(\d+)$/im) |
|
117
|
0 |
506 |
unless $self->{'seekable'} |
|
118
|
18 |
488 |
if length $read >= $length |
|
120
|
0 |
488 |
if $self->{'unescape'} |
|
125
|
17 |
1 |
if (not defined $next or $next =~ /^From /) |
|
130
|
0 |
1 |
unless $self->{'seekable'} |
|
134
|
1 |
0 |
if ($self->{'seekable'}) { } |
|
143
|
2 |
21 |
if ($mail =~ /^Lines:\s*(\d+)$/im) |
|
152
|
0 |
37 |
unless defined $bodyline |
|
153
|
0 |
37 |
unless $self->{'seekable'} |
|
155
|
0 |
37 |
if $self->{'unescape'} |
|
160
|
1 |
1 |
if (not defined $next or $next =~ /^From /) |
|
165
|
0 |
1 |
unless $self->{'seekable'} |
|
169
|
1 |
0 |
if ($self->{'seekable'}) { } |
|
178
|
20 |
2272 |
if ($prev eq $/ and $line =~ $self->_from_line_re) |
|
183
|
40 |
1413 |
if ($inheaders and not defined $self->{'messageid'} and $line =~ /^Message-Id:\s*(.+)/i) |
|
191
|
0 |
2272 |
if $self->{'unescape'} |
|
196
|
7 |
22 |
unless $mail |
|
203
|
7 |
40 |
unless $ref |
|
221
|
0 |
236 |
$_[0]{'jwz_From_'} ? : |