Branch Coverage

lib/Sisimai/SMTP/Status.pm
Criterion Covered Total %
branch 92 104 88.4


line true false branch
648 55 726 $argv2 ? :
659 144 12258 unless __PACKAGE__->test($argv1)
670 4 12727 if length $argv1 < 5 or length $argv1 > 7
673 1 12726 unless scalar @$token == 3
674 1 12725 if $token->[0] < 2
675 1 12724 if $token->[0] == 3
676 1 12723 if $token->[0] > 5
677 1 12722 if $token->[1] < 0
678 145 12577 if $token->[1] > 7
679 1 12576 if $token->[2] < 0
690 244 7271 if length $argv1 < 7
694 456 6815 $givenclass eq '2' || $givenclass eq '4' || $givenclass eq '5' ? :
700 0 2916 if $p0 == -1
710 20901 5562 if $p0 == -1
715 4206 3065 unless scalar keys %$lookingfor
725 0 5562 if $indexofees == -1
732 1522 4040 if $characters->[0] > 45 and $characters->[0] < 58
733 0 4040 if $characters->[0] == 86 or $characters->[0] == 118
734 254 3786 if $characters->[1] < 48 or $characters->[1] > 55
735 42 3744 if $characters->[2] != 46
743 6 3738 if $characters->[3] < 48 or $characters->[3] > 57
746 199 3539 if ("Sisimai::SMTP::Status"->is_ambiguous($readbuffer) or $readbuffer eq "4.4.7")
752 3040 499 if ($characters->[4] < 48 or $characters->[4] > 57)
759 359 140 if ($characters->[5] < 48 or $characters->[5] > 57)
766 0 140 if $characters->[6] > 47 and $characters->[6] < 58
769 189 2876 if length $anotherone
770 483 2582 if scalar @$statuscode == 0
789 1 3465 unless length $statuscode > 4
790 1 2519 unless length $codeinmesg > 4
791 0 2519 if index($statuscode, ".9.") == 1
800 23 2496 if ($the1stchar->{'reply'} > 0 and $the1stchar->{'field'} != $the1stchar->{'error'})
803 2 21 if $the1stchar->{'reply'} == $the1stchar->{'field'}
804 21 0 if $the1stchar->{'reply'} == $the1stchar->{'error'}
806 2113 383 if $statuscode eq $codeinmesg
811 75 308 if ($zeroindex2->{'field'} > 0)
813 75 0 if $zeroindex2->{'error'} < 0
817 65 243 if ($zeroindex1->{'field'} > 0)
819 44 21 if $zeroindex1->{'error'} < 0
822 62 202 if $zeroindex2->{'error'} > 0
823 36 166 if $statuscode eq "4.4.7"
824 11 155 if $statuscode eq "4.7.0"
825 0 155 if index($statuscode, "5.3.") == 0
826 11 144 if index($statuscode, ".5.1") > 0
827 0 144 if index($statuscode, ".5.2") > 0
828 0 144 if index($statuscode, ".5.4") > 0
829 0 144 if index($statuscode, ".5.5") > 0
831 37 107 if ($statuscode eq '5.1.1') { }
5 102 elsif ($statuscode eq '5.1.3') { }
833 27 10 if index($codeinmesg, "5.5.") == 0 or $zeroindex1->{'error'} > 0
838 5 0 if index($codeinmesg, "5.7.") == 0
850 2 89 if length $argv1 == 7 and index($argv1, ".9.") == 1
860 352 4012 if length $argv1 == 5 and substr($argv1, -4, 4) eq ".0.0"