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)
949	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 ($@)