| line |
true |
false |
branch |
|
27
|
19 |
0 |
if ($@) |
|
40
|
0 |
22 |
if $$self{'ARGS'}{'decode'} =~ /BODY|ALL/ |
|
47
|
0 |
0 |
if ($enc eq 'base64') |
|
51
|
0 |
0 |
if ($enc eq 'quoted-printable') |
|
61
|
0 |
4 |
if $args{'strip_sig'} |
|
63
|
0 |
4 |
if ($decode eq 'BODY' or $decode eq 'ALL') |
|
74
|
0 |
0 |
if ($decode eq 'BODY' or $decode eq 'ALL') |
|
78
|
0 |
0 |
unless $args{'strip_sig'} |
|
82
|
0 |
0 |
if /^--\040?[\r\n]?$/ |
|
100
|
532 |
28 |
if (not /^--\040?[\r\n]?$/ || $seperator) { } |
|
|
6 |
22 |
elsif (not $seperator) { } |
|
110
|
0 |
0 |
if $bound and /^--\Q$bound\E/ and $seperator |
|
116
|
12 |
6 |
unless @signature |
|
117
|
0 |
18 |
if ($decode eq 'BODY' or $decode eq 'ALL') |
|
120
|
6 |
12 |
if $seperator |
|
128
|
0 |
0 |
unless exists $args{'unique'} |
|
130
|
0 |
0 |
if ($Mail::MboxParser::Mail::Body::_HAVE_NOT_URI_FIND) { } |
|
144
|
0 |
0 |
unless ($seen{$url}) |
|
147
|
0 |
0 |
if $args{'unique'} |
|
151
|
0 |
0 |
if @uris == 0 |
|
169
|
0 |
0 |
if ($decode eq 'ALL' or $decode eq 'BODY') |
|
177
|
0 |
0 |
if ($c eq '>') |
|
178
|
0 |
0 |
if ($c ne '>' and $c ne ' ') |
|
182
|
0 |
0 |
unless (exists $ret{$q}) |
|
188
|
0 |
0 |
if ($last == $q) { } |
|
189
|
0 |
0 |
if (@{$ret{$q};} == 0) { } |