Branch Coverage

blib/lib/Protocol/SMTP/Client.pm
Criterion Covered Total %
branch 22 48 45.8


line true false branch
78 1 1 unless my(@auth) = $self->auth_methods
83 0 1 if $self->auth_mechanism_override
101 0 1 defined $rslt && length $rslt ? :
109 0 0 if ($code =~ /^5/) { }
0 0 elsif ($code =~ /^3/) { }
0 0 elsif ($code =~ /2/) { }
182 4 2 $factory ? :
192 15 0 unless $ENV{'PERL_SMTP_DEBUG'}
227 0 2 defined wantarray ? :
232 0 2 defined wantarray ? :
255 0 2 ref $args{'to'} eq 'ARRAY' ? :
257 2 0 unless 1 == grep(exists($args{$_}), ('data', 'content'))
260 0 0 if exists $args{'content'}
272 0 0 if $self->body_encoding
290 0 0 if substr($line, 0, 1) eq '.'
293 0 0 unless @mail
311 3 2 unless @{$$self{'task_queue'};}
343 1 3 if ($feature eq 'AUTH') { }
344 1 0 unless $$self{'auth_method_override'}
432 0 6 if ($$self{'auth_handler'})
438 2 4 if ($multi eq ' ')
440 2 0 if ($$task[0] == $code) { }
448 2 0 unless @{$$self{'pending'};}
462 2 0 unless $self->have_active_task