| line |
true |
false |
branch |
|
122
|
9 |
0 |
unless ($file eq 'FH' and $fh) |
|
124
|
0 |
9 |
unless -e $file |
|
125
|
0 |
9 |
unless -f $file |
|
131
|
9 |
0 |
if (seek $fh, CORE::tell $fh, 0) { } |
|
139
|
1 |
8 |
if ($$self{'seek_to'}) { } |
|
140
|
0 |
1 |
unless ($$self{'seekable'}) |
|
149
|
7 |
1 |
if ($firstline) |
|
150
|
0 |
7 |
unless $firstline =~ /^From / |
|
161
|
0 |
9 |
unless my $fh = 'IO::File'->new($file) |
|
168
|
0 |
2884 |
if (not $$self{'seekable'} and @{$$self{'cache'};}) |
|
180
|
0 |
0 |
unless $$self{'_fh'} |
|
198
|
40 |
2270 |
if ($line eq $/ and $inheaders) |
|
202
|
40 |
0 |
if $$self{'seekable'} |
|
205
|
18 |
22 |
if ($mail =~ /^Content-Length:\s*(\d+)$/im) |
|
213
|
0 |
506 |
unless $$self{'seekable'} |
|
214
|
18 |
488 |
if length $read >= $length |
|
216
|
0 |
488 |
if $$self{'unescape'} |
|
221
|
17 |
1 |
if (not defined $next or $next =~ /^From /) |
|
226
|
0 |
1 |
unless $$self{'seekable'} |
|
230
|
1 |
0 |
if ($$self{'seekable'}) { } |
|
239
|
2 |
21 |
if ($mail =~ /^Lines:\s*(\d+)$/im) |
|
248
|
0 |
37 |
unless defined $bodyline |
|
249
|
0 |
37 |
unless $$self{'seekable'} |
|
251
|
0 |
37 |
if $$self{'unescape'} |
|
256
|
1 |
1 |
if (not defined $next or $next =~ /^From /) |
|
261
|
0 |
1 |
unless $$self{'seekable'} |
|
265
|
1 |
0 |
if ($$self{'seekable'}) { } |
|
274
|
20 |
2272 |
if ($prev eq $/ and $line =~ $self->_from_line_re) |
|
284
|
0 |
2272 |
if $$self{'unescape'} |
|
288
|
7 |
22 |
unless $mail |
|
295
|
7 |
40 |
unless $ref |
|
313
|
0 |
236 |
$_[0]{'jwz_From_'} ? : |