Catalyst::Plugin::Authentication::Store::Htpasswd::Backend - Htpasswd authentication storage backend. # you probably just want Store::Htpasswd under most cases, # but if you insist you can instantiate your own store: use Catalyst::Plugin::Authentication::Store::Htpasswd::Backend; use Catalyst qw/ Authentication Authentication::Credential::Password /; my %users = ( user => { password => "s3cr3t" }, ); our $users = Catalyst::Plugin::Authentication::Store::Htpasswd::Backend->new(\%users); sub action : Local { my ( $self, $c ) = @_; $c->login( $users->get_user( $c->req->param("login") ), $c->req->param("password") ); } You probably want Catalyst::Plugin::Authentication::Store::Htpasswd, unless you are mixing several stores in a single app and one of them is Htpasswd. Otherwise, this lets you create a store manually.

new $hash_ref
Constructs a new store object, which uses the supplied hash ref as it's backing structure.

get_user $id
Keys the hash by $id and returns the value. If the return value is unblessed it will be blessed as Catalyst::Plugin::Authentication::User::Hash.

user_supports
Chooses a random user from the hash and delegates to it. Copyright (c) 2005 the aforementioned authors. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.