Branch Coverage

lib/Haineko/SMTPD/Session.pm
Criterion Covered Total %
branch 32 60 53.3


line true false branch
39 2 13 if ($nekor)
40 1 1 if (ref $nekor eq 'Haineko::SMTPD::Response') { }
1 0 elsif (ref $nekor eq 'ARRAY') { }
50 0 1 if (ref $e eq 'Haineko::SMTPD::Response') { }
1 0 elsif (ref $e eq 'HASH') { }
69 1 14 if scalar @$r
71 14 1 unless defined $$argvs{'addresser'}
100 17 51 if length $idstr == $size1
123 0 14 unless ref $argv eq 'Haineko::SMTPD::Response'
132 9 0 if $argv
133 9 0 $$self{'stage'} & $ehlo ? :
140 1 0 if $argv
141 1 0 $$self{'stage'} & $auth ? :
148 7 0 if $argv
149 7 0 $$self{'stage'} & $mail ? :
156 3 0 if $argv
157 3 0 $$self{'stage'} & $rcpt ? :
164 1 0 if $argv
165 1 0 $$self{'stage'} & $data ? :
186 65 65 if $e =~ /(?:response|addresser|recipient|started|stage)/
191 13 0 unless defined $$self{'addresser'}
192 0 0 unless ref $$self{'addresser'}
193 0 0 unless ref $$self{'addresser'} eq 'Haineko::SMTPD::Address'
200 13 0 unless defined $$self{'recipient'}
201 0 0 unless ref $$self{'recipient'} eq 'ARRAY'
206 0 0 unless ref $e eq 'Haineko::SMTPD::Address'
213 0 13 unless defined $$self{'response'}
214 0 13 unless ref $$self{'response'} eq 'ARRAY'
218 0 15 unless ref $e eq 'Haineko::SMTPD::Response'
222 13 0 if scalar @{$$smtp{'response'};}