Branch Coverage

blib/lib/Authen/SASL/Perl/LOGIN.pm
Criterion Covered Total %
branch 17 22 77.2


line true false branch
40 4 5 if ($stage == 1) { }
4 1 elsif ($stage == 2) { }
1 0 elsif ($stage == 3) { }
75 8 7 if ($stage == 1) { }
7 0 elsif ($stage == 2) { }
76 0 8 unless (defined $response)
84 0 7 unless (defined $response)
96 2 5 if (my $checkpass = $self->{'callback'}{'checkpass'}) { }
5 0 elsif (my $getsecret = $self->{'callback'}{'getsecret'}) { }
99 1 1 if ($result) { }
113 2 3 if ($good_pass and $good_pass eq ($self->{'answer'}{'pass'} || '')) { }