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'} || '')) { } |