line |
true |
false |
branch |
23
|
0 |
9 |
unless -e $file |
24
|
0 |
9 |
unless -f $file |
29
|
1 |
8 |
if ($$self{'seek_to'}) { } |
35
|
7 |
1 |
if ($firstline) |
36
|
0 |
7 |
unless $firstline =~ /^From / |
46
|
0 |
9 |
unless my $fh = 'IO::File'->new($file) |
67
|
40 |
2270 |
if ($line eq $/ and $inheaders) |
73
|
18 |
22 |
if ($mail =~ /^Content-Length: (\d+)$/im) |
80
|
18 |
488 |
if length $read >= $length |
85
|
17 |
1 |
if not defined $next or $next =~ /^From / |
94
|
2 |
21 |
if ($mail =~ /^Lines: (\d+)$/im) |
103
|
1 |
1 |
if not defined $next or $next =~ /^From / |
112
|
20 |
2272 |
if $prev eq $/ and $line =~ $self->_from_line_re |
118
|
7 |
22 |
unless $mail |
136
|
0 |
236 |
$_[0]{'jwz_From_'} ? : |