Branch Coverage

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


line true false branch
642 80 701 $argv2 ? :
653 339 12148 unless __PACKAGE__->test($argv1)
664 4 12812 if length $argv1 < 5 or length $argv1 > 7
667 1 12811 unless scalar @$token == 3
668 1 12810 if $token->[0] < 2
669 1 12809 if $token->[0] == 3
670 1 12808 if $token->[0] > 5
671 1 12807 if $token->[1] < 0
672 340 12467 if $token->[1] > 7
673 1 12466 if $token->[2] < 0
684 244 7252 if length $argv1 < 7
688 456 6796 $givenclass eq '2' || $givenclass eq '4' || $givenclass eq '5' ? :
694 0 2595 if $p0 == -1
704 20844 5812 if $p0 == -1
709 4048 3204 unless scalar keys %$lookingfor
719 0 5812 if $indexofees == -1
726 1782 4030 if $characters->[0] > 45 and $characters->[0] < 58
727 0 4030 if $characters->[0] == 86 or $characters->[0] == 118
728 254 3776 if $characters->[1] < 48 or $characters->[1] > 55
729 42 3734 if $characters->[2] != 46
737 6 3728 if $characters->[3] < 48 or $characters->[3] > 57
740 199 3529 if ("Sisimai::SMTP::Status"->is_ambiguous($readbuffer) or $readbuffer eq "4.4.7")
746 3030 499 if ($characters->[4] < 48 or $characters->[4] > 57)
753 359 140 if ($characters->[5] < 48 or $characters->[5] > 57)
760 0 140 if $characters->[6] > 47 and $characters->[6] < 58
763 189 3015 if length $anotherone
764 621 2583 if scalar @$statuscode == 0
783 1 3510 unless length $statuscode > 4
784 1 2524 unless length $codeinmesg > 4
785 0 2524 if index($statuscode, ".9.") == 1
794 23 2501 if ($the1stchar->{'reply'} > 0 and $the1stchar->{'field'} != $the1stchar->{'error'})
797 2 21 if $the1stchar->{'reply'} == $the1stchar->{'field'}
798 21 0 if $the1stchar->{'reply'} == $the1stchar->{'error'}
800 2118 383 if $statuscode eq $codeinmesg
805 75 308 if ($zeroindex2->{'field'} > 0)
807 75 0 if $zeroindex2->{'error'} < 0
811 65 243 if ($zeroindex1->{'field'} > 0)
813 44 21 if $zeroindex1->{'error'} < 0
816 62 202 if $zeroindex2->{'error'} > 0
817 36 166 if $statuscode eq "4.4.7"
818 11 155 if $statuscode eq "4.7.0"
819 0 155 if index($statuscode, "5.3.") == 0
820 11 144 if index($statuscode, ".5.1") > 0
821 0 144 if index($statuscode, ".5.2") > 0
822 0 144 if index($statuscode, ".5.4") > 0
823 0 144 if index($statuscode, ".5.5") > 0
825 37 107 if ($statuscode eq '5.1.1') { }
5 102 elsif ($statuscode eq '5.1.3') { }
827 27 10 if index($codeinmesg, "5.5.") == 0 or $zeroindex1->{'error'} > 0
832 5 0 if index($codeinmesg, "5.7.") == 0
844 82 125 if length $argv1 == 7 and index($argv1, ".9.") == 1
854 352 4002 if length $argv1 == 5 and substr($argv1, -4, 4) eq ".0.0"