| blib/lib/Authen/SASL/Perl/PLAIN.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 12 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 35 | 12 | 3 | defined $v ? : |
| 47 | 0 | 24 | unless defined $response |
| 59 | 22 | 2 | if (my $checkpass = $self->callback('checkpass')) { } |
| 2 | 0 | elsif (my $getsecret = $self->callback('getsecret')) { } | |
| 62 | 19 | 3 | if (not $result) { } |
| 78 | 1 | 1 | if ($good_pass and $good_pass eq ($parts{'pass'} || '')) { } |