line |
true |
false |
branch |
146
|
0 |
0 |
if $param{'ssl_verify'} |
147
|
0 |
0 |
if $param{'ssl_verify'} eq '0x00' |
148
|
0 |
0 |
if $param{'notssl_verify'} |
164
|
0 |
0 |
unless (defined $server) |
166
|
0 |
0 |
if (exists $ENV{'IMAP_SERVER'} and not $ENV{'IMAP_SERVER'} =~ m[^/]) |
170
|
0 |
0 |
unless ($server =~ /:.*:/) |
176
|
0 |
0 |
unless $server =~ /^[A-Za-z0-9_.-]+\z/ |
178
|
0 |
0 |
unless $port =~ /^[A-Za-z0-9_()-]+\z/ |
181
|
0 |
0 |
unless (defined $user) |
182
|
0 |
0 |
if ($^O eq 'MSWin32') { } |
185
|
0 |
0 |
if (exists $ENV{'USERNAME'} and length $ENV{'USERNAME'}) { } |
|
0 |
0 |
elsif (exists $ENV{'LOGNAME'} and length $ENV{'LOGNAME'}) { } |
196
|
0 |
0 |
unless defined $user |
200
|
0 |
0 |
if (defined $sslkeyfile and not defined $sslcertfile or defined $sslcertfile and not defined $sslkeyfile) |
204
|
0 |
0 |
if (defined $sslkeyfile) |
219
|
0 |
0 |
unless (defined $sock) |
221
|
0 |
0 |
if ($!{'EINVAL'} and $net_domain != 0) |
239
|
0 |
0 |
if (exists $capa{'STARTTLS'}) { } |
|
0 |
0 |
elsif ($forbid_clearchan) { } |
242
|
0 |
0 |
unless /^OK\b/ |
243
|
0 |
0 |
unless ('IO::Socket::SSL'->start_SSL($sock, %ssl_options)) |
247
|
0 |
0 |
if (exists $main::main::{'Net::'} and exists $main::main::{'Net::'}{'SSLeay::'}) |
249
|
0 |
0 |
if defined $t and $t |
252
|
0 |
0 |
if ($dump_tls_information) |
254
|
0 |
0 |
if ($DEBUGGING and exists $main::main::{'Net::'} and exists $main::main::{'Net::'}{'SSLeay::'}) |
286
|
0 |
0 |
if (exists $capa{'IMPLEMENTATION'} and $capa{'IMPLEMENTATION'} =~ /^Cyrus timsieved v2\.3\.(\d+)/ and $1 >= 13) |
293
|
0 |
0 |
if ($use_noop) { } |
307
|
0 |
0 |
unless (scalar keys %capa) |
318
|
0 |
0 |
if (defined $authzid) |
321
|
0 |
0 |
if (defined $realm) |
331
|
0 |
0 |
unless ref $capa{'SASL'} eq 'ARRAY' |
332
|
0 |
0 |
if (defined $authmech) { } |
334
|
0 |
0 |
if (grep {$_ eq $authmech;} map({uc $_;} @{$capa{'SASL'};})) { } |
345
|
0 |
0 |
unless defined $sasl |
349
|
0 |
0 |
if $forbid_clearauth |
350
|
0 |
0 |
unless my $authconversation = $sasl->client_new('sieve', $server, $secflags) |
352
|
0 |
0 |
if ($tls_bitlength > 0) |
355
|
0 |
0 |
if (defined $realm) |
359
|
0 |
0 |
unless my $sasl_m = $authconversation->mechanism |
361
|
0 |
0 |
if ($sasl_m eq 'GSSAPI') |
374
|
0 |
0 |
if ($authconversation->code) |
379
|
0 |
0 |
if (defined $sasl_tosend and length $sasl_tosend) { } |
391
|
0 |
0 |
if (/^"(.*)"\r?\n?$/) { } |
394
|
0 |
0 |
unless (/^\{(\d+)\+?}\r?$/m) |
403
|
0 |
0 |
if ($authconversation->code) |
407
|
0 |
0 |
unless defined $response |
416
|
0 |
0 |
if (/^NO((?:\s.*)?)$/) |
419
|
0 |
0 |
if (/^OK\s+\(SASL\s+\"([^"]+)\"\)$/) |
437
|
0 |
0 |
if ($authconversation->code) |
439
|
0 |
0 |
if ($Authen::SASL::Perl::VERSION >= 1.06) |
443
|
0 |
0 |
if (defined $valid and length $valid) |
457
|
0 |
0 |
if $self->{'_sock'} |
516
|
0 |
0 |
if $line =~ /\"(.*?)\"/ |
517
|
0 |
0 |
$line =~ /ACTIVE/ ? : |
544
|
0 |
0 |
unless $size and $name |
551
|
0 |
0 |
unless (/^OK((?:\s.*)?)$/) |
572
|
0 |
0 |
unless $name |
576
|
0 |
0 |
if (/^NO((?:\s.*)?)$/) |
579
|
0 |
0 |
if (/^OK((?:\s.*)?)$/) |
583
|
0 |
0 |
unless (/^\{(\d+)\+?}\r?$/m) |
589
|
0 |
0 |
unless (/^OK((?:\s.*)?)$/) |
612
|
0 |
0 |
unless (/^OK((?:\s.*)?)$/) |
648
|
0 |
0 |
unless $name |
652
|
0 |
0 |
unless (/^OK((?:\s.*)?)$/) |
670
|
0 |
0 |
if exists $_{'external_first'} |
677
|
0 |
0 |
unless /^OK\b/ |
678
|
0 |
0 |
if (/^OK\b/) { } |
|
0 |
0 |
elsif (/^\"([^"]+)\"\s+\"(.*)\"$/) { } |
|
0 |
0 |
elsif (/^\"([^"]+)\"$/) { } |
|
0 |
0 |
elsif (/^NO\b/) { } |
|
0 |
0 |
elsif (/^BYE\b(.*)/) { } |
680
|
0 |
0 |
unless exists $_{'sent_a_noop'} |
684
|
0 |
0 |
unless (defined $end_tag and length $end_tag) |
693
|
0 |
0 |
if ($_ =~ /\b\Q$end_tag\E\b/) |
703
|
0 |
0 |
unless (length $v) |
704
|
0 |
0 |
unless (exists $capa_permit_empty{$k}) |
711
|
0 |
0 |
if (defined $capa_permit_empty{$k}) |
715
|
0 |
0 |
if (exists $capa{$k}) |
726
|
0 |
0 |
if (exists $capa_dosplit{$k}) |
734
|
0 |
0 |
if exists $_{'sent_a_noop'} |
746
|
0 |
0 |
unless exists $capa{'SIEVE'} |
748
|
0 |
0 |
unless exists $capa{'IMPLEMENTATION'} |
754
|
0 |
0 |
if (grep {lc $_ eq 'enotify';} @{$capa{'SIEVE'};}) |
755
|
0 |
0 |
unless (exists $capa{'NOTIFY'}) |
762
|
0 |
0 |
if (exists $capa{'SASL'} and $external_first and grep {uc $_ eq 'EXTERNAL';} @{$capa{'SASL'};}) |
774
|
0 |
0 |
unless uc $_ eq 'EXTERNAL' |
785
|
0 |
0 |
unless $DEBUGGING |
795
|
0 |
0 |
defined $_[0] ? : |
796
|
0 |
0 |
defined $_[0] ? : |
818
|
0 |
0 |
if (defined $_[0] and $_[0] eq '-noeol') |
850
|
0 |
0 |
unless defined $t |
851
|
0 |
0 |
if ($t eq '-nochomp') |
852
|
0 |
0 |
if ($t eq '-firstline') |
853
|
0 |
0 |
unless defined $_[0] |
861
|
0 |
0 |
unless defined $l |
862
|
0 |
0 |
unless (defined $l) |
866
|
0 |
0 |
if ($l =~ /{(\d+)\+?}\s*\n?\z/) |
869
|
0 |
0 |
if ($len == 0) { } |
880
|
0 |
0 |
if ($dochomp) |
884
|
0 |
0 |
if (defined wantarray) { } |
901
|
0 |
0 |
if (defined $_[0]) |
907
|
0 |
0 |
if (/^OK/) |
954
|
0 |
0 |
if (length $suffix) { } |