view release on metacpan or  search on metacpan

lib/Authen/Simple/CDBI.pm  view on Meta::CPAN

    }

    unless ( $class->find_column($username) ) {
        Carp::croak( qq/Class '$class' does not have a username column named '$username'/ );
    }

    unless ( $class->find_column($password) ) {
        Carp::croak( qq/Class '$class' does not have a password column named '$password'/ );
    }

    return $self->SUPER::init($params);
}

sub check {
    my ( $self, $username, $password ) = @_;

    my ( $class, $user, $encrypted ) = ( $self->class, undef, undef );

    unless ( $user = $class->retrieve( $self->username => $username ) ) {

        $self->log->debug( qq/User '$username' was not found with class '$class'./ )