OpusVL::AppKit::RolesFor::Auth
version 6
package FailLogin; use Moose; with 'OpusVL::AppKit::RolesFor::Auth'; sub check_password { my ($self, $user, $password) = @_; return 0; }
This role is used to supply a method for authenticating a users password.
The role expects the classes that support it to implement the check_password method which should take a username and password and return 0 or 1 depending on whether the password is correct.
$obj->check_password('user', 'password'); # return 0 or 1
See OpusVL::AppKit::LDAPAuth for an example of this role in use.
Colin Newell <colin@opusvl.com>
This software is copyright (c) 2016 by OpusVL.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
To install OpusVL::AppKit::Schema::AppKitAuthDB, copy and paste the appropriate command in to your terminal.
cpanm
cpanm OpusVL::AppKit::Schema::AppKitAuthDB
CPAN shell
perl -MCPAN -e shell install OpusVL::AppKit::Schema::AppKitAuthDB
For more information on module installation, please visit the detailed CPAN module installation guide.