| line |
true |
false |
branch |
|
27
|
0 |
1 |
if exists $params{'USERNAME'} and exists $params{'PASSWORD'} |
|
33
|
0 |
1 |
if (defined $$self{'SOCK'}) |
|
41
|
1 |
0 |
if $size / 1024 > 1 |
|
48
|
0 |
0 |
unless my $not = 'IO::Socket::SSL'->new('pop.gmail.com:995') |
|
53
|
0 |
0 |
unless ($line =~ /^\+OK/) |
|
56
|
0 |
0 |
unless ($line =~ /^\+OK/) |
|
64
|
0 |
0 |
if (defined $$self{'SOCK'}) { } |
|
68
|
0 |
0 |
unless (not $gans =~ /^\+OK\s(\d+)\s(\d+)(\s.*)?\r\n/) |
|
77
|
0 |
0 |
unless exists $params{'ALERT'} |
|
78
|
0 |
0 |
if (defined $$self{'SOCK'}) { } |
|
82
|
0 |
0 |
unless (not $gans =~ /^\+OK\s(\d+)\s(\d+)(\s.*)?\r\n/) |
|
83
|
0 |
0 |
if ($params{'ALERT'} eq 'NEW_MSG_ONLY') |
|
84
|
0 |
0 |
if ($1 > $$self{'NBMSG'}) |
|
89
|
0 |
0 |
unless $params{'ALERT'} eq 'NEW_MSG_ONLY' |
|
97
|
0 |
0 |
if (defined $$self{'SOCK'}) |
|
100
|
0 |
0 |
if (exists $params{'MSG'}) { } |
|
103
|
0 |
0 |
if ($gans =~ /^\+OK\s(\d+)\s(\d+)/) { } |
|
111
|
0 |
0 |
if ($gans =~ /^(\d+)\s(\d+)/) |
|
116
|
0 |
0 |
if $i == 0 |
|
158
|
0 |
0 |
if ($gans =~ m[^Content-Type: ([a-z0-9/-]+);\s?(?:([a-z0-9-]+)=\"?([a-z0-9._=-]+)\"?)?\r\n]i) |
|
160
|
0 |
0 |
if (not defined $2) { } |
|
167
|
0 |
0 |
if ($gans =~ /^Content-Transfer-Encoding: (7bit|8bit|binary|base64|quote-printable|ietf-token|x-token)\r\n/i) |
|
173
|
0 |
0 |
unless $gans =~ /^--$boundary/ |
|
183
|
0 |
0 |
if ($gans =~ /^--$boundary/) |
|
188
|
0 |
0 |
if ($gans =~ m[^Content-Type: ([a-z0-9/-]+);\s?(?:([a-z0-9-]+)=\"?([a-z0-9._=-]+)\"?)?\r\n]i) |
|
190
|
0 |
0 |
if (not defined $2) { } |
|
197
|
0 |
0 |
if ($gans =~ /^Content-Transfer-Encoding: (7bit|8bit|binary|base64|quote-printable|ietf-token|x-token)\r\n/i) |
|
200
|
0 |
0 |
if ($gans =~ /^Content-Disposition: ([a-z]+);(?:\s+filename=\"?(\S+)\"?)?/) |
|
201
|
0 |
0 |
if ($1 eq 'attachment') |
|
202
|
0 |
0 |
if (not defined $2) { } |
|
208
|
0 |
0 |
if ($gans =~ /^\s+$/) |
|
222
|
0 |
0 |
unless ($gans =~ /^(--$boundary|\.\r\n)/i) |
|
224
|
0 |
0 |
if (@attachments != 0) |
|
236
|
0 |
0 |
if ($gans =~ /^\+OK\s/) { } |
|
239
|
0 |
0 |
if $gans =~ /^([A-Z][a-zA-Z0-9-]+:\s+|\t)/ |
|
240
|
0 |
0 |
if ($gans =~ m[^Content-Type: ([a-z0-9/-]+);\s?(?:([a-z0-9-]+)=\"?([a-z0-9._=-]+)\"?)?\r\n]i) |
|
242
|
0 |
0 |
if ($msgs{'content'} =~ m[^multipart/mixed]i) |
|
243
|
0 |
0 |
if (not defined $2) { } |
|
251
|
0 |
0 |
if ($gans =~ /^Content-Type-Encoding: (7bit|8bit|binary|base64|quote-printable|ietf-token|x-token)\r\n/i) |
|
255
|
0 |
0 |
if (not $msgtype) { } |
|
263
|
0 |
0 |
if (defined $$self{'SOCK'}) |
|
266
|
0 |
0 |
if (exists $params{'MSG'}) { } |
|
269
|
0 |
0 |
if exists $params{'DELETE'} |
|
275
|
0 |
0 |
if exists $params{'DELETE'} |
|
285
|
0 |
0 |
unless exists $params{'HEADERS'} |
|
286
|
0 |
0 |
$params{'HEADERS'} eq 'FULL' ? : |
|
288
|
0 |
0 |
if (defined $$self{'SOCK'}) { } |
|
291
|
0 |
0 |
if (not exists $params{'MSG'}) { } |
|
294
|
0 |
0 |
if ($gans =~ /^\+OK\s(\d+)\s\d+(\s.*)?\r\n/) |
|
302
|
0 |
0 |
if ($gans =~ /^\+OK/) { } |
|
305
|
0 |
0 |
if $gans =~ /$headregx/ |
|
316
|
0 |
0 |
if (defined $$self{'SOCK'}) { } |
|
319
|
0 |
0 |
if (exists $params{'MSG'}) { } |
|
322
|
0 |
0 |
if ($gans =~ /^\+OK\s\d+\s<([\x21-\x7E]+)>\r\n/) { } |
|
327
|
0 |
0 |
if ($gans =~ /^(\d+)\s<([\x21-\x7E]+)>\r\n/) |
|
332
|
0 |
0 |
if $i == 0 |
|
340
|
0 |
0 |
if (defined $$self{'SOCK'}) { } |
|
350
|
0 |
0 |
if (defined $$self{'SOCK'}) { } |