Branch Coverage

lib/Mail/SpamAssassin/Client.pm

Criterion	Covered	Total	%
branch	48	136	35.2

line	true	false	branch
65	1	0	if (eval { do { require IO::Socket::IP } }) { }
	0	0	elsif (eval { do { require IO::Socket::INET6 } }) { }
	0	0	elsif (eval { do { require IO::Socket::INET } }) { }
97	1	2	if ($args->{'socketpath'}) { }
105	0	3	if (defined $args->{'username'})
109	0	3	if ($args->{'timeout'})
145	0	2	if ($is_check_p)
209	0	6	unless $remote
215	0	6	if defined $self->{'username'}
217	2	4	if ($learntype == 0) { }
	2	2	elsif ($learntype == 1) { }
	2	0	elsif ($learntype == 2) { }
240	0	0	$! == 9 ? :
	0	6	unless defined $line or $! == 0
243	0	6	unless defined $line
250	0	6	unless $resp_code == 0
257	2	8	if ($line =~ /DidSet: (.*)/i) { }
	2	6	elsif ($line =~ /DidRemove: (.*)/i) { }
	6	0	elsif ($line =~ /^$EOL$/) { }
267	0	0	$! == 9 ? :
	0	6	unless defined $line or $! == 0
270	0	6	unless close $remote
272	4	2	if ($learntype == 0 or $learntype == 1) { }
296	0	0	unless $remote
302	0	0	if defined $self->{'username'}
310	0	0	$! == 9 ? :
	0	0	unless defined $line or $! == 0
313	0	0	unless defined $line
320	0	0	unless $resp_code == 0
325	0	0	if ($line =~ /DidSet:\s+.*remote/i) { }
	0	0	elsif ($line =~ /^$EOL$/) { }
333	0	0	$! == 9 ? :
	0	0	unless defined $line or $! == 0
336	0	0	unless close $remote
357	0	0	unless $remote
363	0	0	if defined $self->{'username'}
372	0	0	$! == 9 ? :
	0	0	unless defined $line or $! == 0
375	0	0	unless defined $line
382	0	0	unless $resp_code == 0
387	0	0	if ($line =~ /DidRemove:\s+remote/i) { }
	0	0	elsif ($line =~ /^$EOL$/) { }
395	0	0	$! == 9 ? :
	0	0	unless defined $line or $! == 0
398	0	0	unless close $remote
419	0	2	unless $remote
425	0	0	$! == 9 ? :
	0	2	unless defined $line or $! == 0
428	0	2	unless close $remote
429	0	2	unless defined $line
432	0	2	unless $resp_msg eq 'PONG'
456	3	10	if ($self->{'socketpath'}) { }
471	0	13	unless ($remote)
548	0	5	unless $remote
554	0	5	if defined $self->{'username'}
560	0	0	$! == 9 ? :
	0	5	unless defined $line or $! == 0
563	0	5	unless defined $line
570	0	5	unless $resp_code == 0
574	3	10	if ($line =~ /Content-length: (\d+)/) { }
	5	5	elsif ($line =~ m[Spam: (\S+) ; (\S+) / (\S+)]) { }
	5	0	elsif ($line =~ /^$EOL$/) { }
586	0	0	$! == 9 ? :
	0	5	unless defined $line or $! == 0
594	0	0	$! == 9 ? :
	0	5	unless defined $line or $! == 0
598	3	2	if $return_msg
600	0	5	unless close $remote