Branch Coverage

lib/Haineko/SMTPD/Response.pm
Criterion Covered Total %
branch 24 34 70.5


line true false branch
278 9 66 unless exists $$argvs{'message'}
279 1 65 unless ref $$argvs{'message'} eq 'ARRAY'
280 2 63 unless scalar @{$$argvs{'message'};}
283 0 64 unless defined $r
301 1 60 unless grep {$esmtp eq $_;} keys %$Replies
302 0 60 unless grep {$rname eq $_;} keys %{$$Replies{$esmtp};}
309 0 60 if scalar @$mesgs
311 50 10 $$argvs{'code'} =~ /\A[45]\d+/ ? :
331 1 0 ref $$argvs{'message'} eq 'ARRAY' ? :
337 1 0 if $r =~ /\b([2345][.]\d[.]\d+)\b/
338 1 0 if $r =~ /\b([2345]\d\d)\b/
342 1 0 if defined $$nekor{'dsn'} and $$nekor{'dsn'} =~ /\A[45]/
343 1 0 if defined $$nekor{'code'} and $$nekor{'code'} =~ /\A[45]/
352 1 1 unless $argv
354 0 1 unless ref $$self{'message'} eq 'ARRAY'
355 0 1 ref $argv eq 'ARRAY' ? :
366 31 279 if $e eq 'greeting'