| App-Context documentation | Contained in the App-Context distribution. |
App::Authentication - Interface for authentication and authorization
use App;
$context = App->context();
$authentication = $context->service("Authentication"); # or ...
$authentication = $context->authentication();
if ($authentication->validate_password($username, $password)) {
...
}
An Authentication service is a means by which a user may be authenticated.
The following classes might be a part of the Authentication Class Group.
A Authentication service is a means by which a user may be authenticated and by which he may be authorized to perform specific operations.
* Throws: App::Exception::Authentication * Since: 0.01
...
The constructor is inherited from
App::Service|App::Service/"new()".
* Signature: $username = $auth->validate_password();
* Param: void
* Return: $username string
* Throws: App::Exception::Authentication
* Since: 0.01
Sample Usage:
$username = $auth->validate_password();
* Signature: $service_type = App::Authentication->service_type();
* Param: void
* Return: $service_type string
* Since: 0.01
$service_type = $authen->service_type();
Returns 'Authentication';
* Author: Stephen Adkins <spadkins@gmail.com> * License: This is free software. It is licensed under the same terms as Perl itself.
App::Context|App::Context,
App::Service|App::Service
| App-Context documentation | Contained in the App-Context distribution. |
############################################################################# ## $Id: Authentication.pm 9850 2007-08-17 16:09:40Z spadkins $ ############################################################################# package App::Authentication; $VERSION = (q$Revision: 9850 $ =~ /(\d[\d\.]*)/)[0]; # VERSION numbers generated by svn use App; use App::Service; @ISA = ( "App::Service" ); use strict;
############################################################################# # CLASS GROUP #############################################################################
############################################################################# # CLASS #############################################################################
############################################################################# # CONSTRUCTOR METHODS #############################################################################
############################################################################# # new() #############################################################################
############################################################################# # PUBLIC METHODS #############################################################################
############################################################################# # validate_password() #############################################################################
sub validate_password { my ($self, $username, $password) = @_; return(1); } ############################################################################# # Method: service_type() #############################################################################
sub service_type () { 'Authentication'; }
1;