| 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_'} ? : |