| line |
true |
false |
branch |
|
31
|
0 |
16 |
unless $self->{'MBPL_lines'} = $args->{'lines'} |
|
32
|
0 |
16 |
unless $self->{'MBPL_source'} = $args->{'source'} |
|
53
|
36 |
102 |
if $line =~ /$is_empty_line/ |
|
57
|
0 |
102 |
unless (defined $body) |
|
60
|
0 |
0 |
if (@ret and $self->fixHeaderErrors) |
|
89
|
0 |
0 |
unless $skip < @$lines |
|
93
|
0 |
0 |
if substr($line, 0, length $sep) eq $sep |
|
105
|
0 |
29 |
unless $skip < @$lines |
|
109
|
0 |
29 |
unless substr($line, 0, length $sep) eq $sep |
|
122
|
29 |
16 |
if (@$seps) { } |
|
126
|
0 |
120 |
unless my $line = shift @$lines |
|
129
|
106 |
29 |
unless substr($line, 0, length $sep) eq $sep |
|
132
|
0 |
29 |
if $sep eq "From " and not $line =~ / 19[789][0-9]| 20[0-9][0-9]/ |
|
141
|
22 |
7 |
if (@$take and $take->[-1] =~ s/\015?\012\z//) |
|
144
|
16 |
3 |
if @$seps == 1 and @$take > 1 and length $take->[-1] == 0 |
|
151
|
0 |
45 |
if ($self->stripGt) |
|
155
|
0 |
45 |
unless ($self->trusted) |