Branch Coverage

blib/lib/Net/ManageSieve.pm
Criterion Covered Total %
branch 0 272 0.0


line true false branch
191 0 0 if (ref $cap eq 'ARRAY')
194 0 0 if ref $c
198 0 0 if ref $v
201 0 0 scalar @v ? :
216 0 0 if (@_ % 2) { }
227 0 0 unless defined $arg{'Timeout'}
232 0 0 if $arg{'Debug'} or $arg{'debug'}
236 0 0 ref $host ? :
238 0 0 if ($$self{'fh'} = 'IO::Socket::INET'->new(%arg))
244 0 0 unless (defined $$self{'host'})
246 0 0 unless defined $err
255 0 0 unless $self->ok($cap)
258 0 0 if (my $mode = $$self{'_tls'})
260 0 0 if (ref $mode eq 'HASH') { }
267 0 0 if ($mode and $mode =~ /\A(?:require|auto|yes|on|y)\Z/)
269 0 0 if (not $rc and $mode eq 'require')
271 0 0 unless defined $err
302 0 0 unless $$self{'fh'}
326 0 0 unless (scalar(@_) % 2 == 0)
332 0 0 unless $self->ok($self->_command('STARTTLS'))
335 0 0 unless (defined &IO::Socket::SSL::new)
337 0 0 if ($@)
345 0 0 unless ref $$self{'fh'} eq 'IO::Socket::SSL'
349 0 0 unless $self->ok($cap)
378 0 0 unless ($fh)
382 0 0 unless (encrypted($_[0]))
390 0 0 unless &_encrypted
394 0 0 unless &_encrypted
398 0 0 unless &_encrypted
425 0 0 unless (defined &MIME::Base64::encode_base64)
427 0 0 if ($@)
434 0 0 if $r
440 0 0 if (my $mech = $$self{'capabilities'}{'sasl'})
443 0 0 unless (defined &Authen::SASL::new)
445 0 0 if ($@)
450 0 0 if ($doSASL)
452 0 0 if (ref $username and UNIVERSAL::isa($username, 'Authen::SASL')) { }
456 0 0 unless (length $username)
460 0 0 unless (defined $authname)
487 0 0 if ($client->mechanism)
488 0 0 if ($msg) { }
490 0 0 unless defined($msg = $self->_encode_base64($msg, ''))
495 0 0 unless defined $self->_encode_base64('z')
498 0 0 unless $self->_send_command('Authenticate "' . $client->mechanism . '"' . $msg)
502 0 0 if (ref $msg)
503 0 0 if $$msg[0] eq "\n"
517 0 0 if $msg
529 0 0 unless defined $r
547 0 0 unless $$self{'fh'}
589 0 0 if ($reget)
590 0 0 unless my $cap = $self->_command('CAPABILITY')
591 0 0 unless $self->ok($cap)
611 0 0 unless ($size =~ /\A\d+\Z/)
615 0 0 unless $name = $self->_chkName($name)
632 0 0 unless $script =~ /\n\Z/
633 0 0 unless $name = $self->_chkName($name)
659 0 0 unless my $r = $self->_command('LISTSCRIPTS')
661 0 0 unless (my $rc = $self->ok($r))
669 0 0 if (ref $_) { }
670 0 0 if $$_[0] eq 'ACTIVE'
690 0 0 unless $name = $self->_chkName($name)
703 0 0 unless $name = $self->_chkName($name)
704 0 0 unless my $r = $self->_command("GETSCRIPT $name")
706 0 0 if ($self->ok($r))
724 0 0 unless $name = $self->_chkName($name)
757 0 0 if $$self{'_debug'}
760 0 0 if exists $$self{'_on_fail'}
761 0 0 if (defined $op and ref $op eq 'CODE') { }
0 0 elsif (defined $op and $op eq 'warn') { }
0 0 elsif (defined $op and $op eq 'die') { }
769 0 0 if $assignAd
787 0 0 if (defined $state)
788 0 0 if ($state) { }
811 0 0 if $prefix
812 0 0 if ($msg)
813 0 0 unless (defined &Data::Dumper::Dump)
815 0 0 if ($@)
824 0 0 if ($txt)
826 0 0 unless $txt =~ /\n$/s
835 0 0 if ref $str
845 0 0 if (ref $name)
850 0 0 if ($name =~ /[\0\r\n]/)
855 0 0 if $name =~ /[\\"[:cntrl:]]/
862 0 0 if ($cmd =~ /\A(\S+)/)
877 0 0 unless defined $c
879 0 0 if (ref $c)
880 0 0 unless (ref $c eq 'ARRAY')
885 0 0 if (defined(my $cy = pop @$c))
886 0 0 if ref $cy ne 'ARRAY' or $$cy[0] ne "\n"
889 0 0 if (ref $cx eq 'ARRAY') { }
898 0 0 unless ($c =~ /\A(OK|NO|BYE)\b/i)
902 0 0 if uc $1 eq 'OK' or defined $okRsp and uc $okRsp eq uc $1
913 0 0 unless ($fh)
919 0 0 if $$self{'_debug'}
920 0 0 unless $^O eq 'MacOS'
927 0 0 if (select(undef, $in, undef, $timeout) > 0) { }
929 0 0 unless (defined $w)
948 0 0 unless defined(my $r = $self->_token)
952 0 0 if not ref $r or $$r[0] =~ /^(?:\n|active)$/i
964 0 0 unless scalar @_
966 0 0 if (not ref $$self{'line_buffer'} eq 'ARRAY') { }
977 0 0 unless (ref $$self{'line_buffer'} eq 'ARRAY')
982 0 0 if scalar @{$$self{'line_buffer'};}
985 0 0 unless ($fh)
990 0 0 unless $^O eq 'MacOS'
997 0 0 if (select $out, undef, undef, $timeout) { }
998 0 0 unless (sysread $fh, $buf, 65536, length $buf)
1017 0 0 if $$self{'_debug'}
1032 0 0 unless defined $l
1037 0 0 if ($l =~ /\A{(\d+)\+?}\r*\Z/) { }
0 0 elsif ($l =~ s/\A"//) { }
0 0 elsif (!defined($mode) || $mode ne 'end' and $l =~ s/\A(active|ok|no|bye)\b//i) { }
0 0 elsif ($l =~ s/\A(\r*\n)//s) { }
1043 0 0 unless defined $r
1047 0 0 if ($cnt < 0)
1056 0 0 unless ($l =~ s/\A((?:[^"\\]|\\.)*)"//)
1067 0 0 if (uc $1 eq 'BYE')
1070 0 0 if ($r =~ s/\A\s+(\(.+?\))//)
1075 0 0 if (ref $r) { }
1083 0 0 if $l
1091 0 0 ref $l ? :
1100 0 0 if (not ref $this or ref $this eq 'CODE') { }
0 0 elsif (ref $this eq 'ARRAY') { }
0 0 elsif (ref $this eq 'HASH') { }
1125 0 0 unless defined $str
1126 0 0 unless $enc
1142 0 0 if $e or length $string == 0
1143 0 0 if ($string eq $str)
1144 0 0 if $h or not $h || $str
1151 0 0 if (scalar @_ > 1)
1156 0 0 unless defined $string
1159 0 0 if ($enc)
1161 0 0 unless ($@)
1165 0 0 if ($enc eq 'iso-2022-jp')
1168 0 0 unless ($@)
1176 0 0 unless ($@)