Branch Coverage

lib/Net/Sieve.pm
Criterion Covered Total %
branch 0 206 0.0


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