| 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) { } |