Fork Authentication::Store::Htpasswd off Authentication::Store::Minimal

diff --git a/lib/Catalyst/Plugin/Authentication/Store/Htpasswd.pm b/lib/Catalyst/Plugin/Authentication/Store/Htpasswd.pm
new file mode 100644 (file)
index 0000000..2dfb066
--- /dev/null
+++ b/lib/Catalyst/Plugin/Authentication/Store/Htpasswd.pm
@@ -0,0 +1,79 @@
+#!/usr/bin/perl
+
+package Catalyst::Plugin::Authentication::Store::Minimal;
+
+use strict;
+use warnings;
+
+use Catalyst::Plugin::Authentication::Store::Minimal::Backend;
+
+sub setup {
+    my $c = shift;
+
+    $c->default_auth_store(
+        Catalyst::Plugin::Authentication::Store::Minimal::Backend->new(
+            $c->config->{authentication}{users}
+        )
+    );
+
+       $c->NEXT::setup(@_);
+}
+
+__PACKAGE__;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+Catalyst::Plugin::Authentication::Store::Minimal - Authentication
+database in C<<$c->config>>.
+
+=head1 SYNOPSIS
+
+    use Catalyst qw/
+      Authentication
+      Authentication::Store::Minimal
+      Authentication::Credential::Password
+      /;
+
+    __PACKAGE__->config->{authentication}{users} = {
+        name => {
+            password => "s3cr3t",
+            roles    => [qw/admin editor/],
+            ...
+        },
+    };
+
+    sub login : Global {
+        my ( $self, $c ) = @_;
+
+        $c->login( $c->req->param("login"), $c->req->param("password"), );
+    }
+
+=head1 DESCRIPTION
+
+This authentication store plugin lets you create a very quick and dirty user
+database in your application's config hash.
+
+It's purpose is mainly for testing, and it should probably be replaced by a
+more "serious" store for production.
+
+The hash in the config, as well as the user objects/hashes are freely mutable
+at runtime.
+
+=head1 METHODS
+
+=over 4
+
+=item setup
+
+This method will popultate C<< $c->config->{authentication}{store} >> so that
+L<Catalyst::Plugin::Authentication/default_auth_store> can use it.
+
+=back
+
+=cut
+
+

diff --git a/lib/Catalyst/Plugin/Authentication/Store/Htpasswd/Backend.pm b/lib/Catalyst/Plugin/Authentication/Store/Htpasswd/Backend.pm
new file mode 100644 (file)
index 0000000..5eecd3d
--- /dev/null
+++ b/lib/Catalyst/Plugin/Authentication/Store/Htpasswd/Backend.pm
@@ -0,0 +1,105 @@
+#!/usr/bin/perl
+
+package Catalyst::Plugin::Authentication::Store::Minimal::Backend;
+
+use strict;
+use warnings;
+
+use Catalyst::Plugin::Authentication::User::Hash;
+use Scalar::Util ();
+
+sub new {
+    my ( $class, $hash ) = @_;
+
+    bless { hash => $hash }, $class;
+}
+
+sub get_user {
+    my ( $self, $id ) = @_;
+
+       my $user = $self->{hash}{$id};
+
+       bless $user, "Catalyst::Plugin::Authentication::User::Hash"
+         unless Scalar::Util::blessed($user);
+
+    return $user;
+}
+
+sub user_supports {
+    my $self = shift;
+
+    # choose a random user
+    scalar keys %{ $self->{hash} };
+    ( undef, my $user ) = each %{ $self->{hash} };
+
+    $user->supports(@_);
+}
+
+__PACKAGE__;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+Catalyst::Plugin::Authentication::Store::Minimal::Backend - Minimal
+authentication storage backend.
+
+=head1 SYNOPSIS
+
+    # you probably just want Store::Minimal under most cases,
+    # but if you insist you can instantiate your own store:
+
+    use Catalyst::Plugin::Authentication::Store::Minimal::Backend;
+
+    use Catalyst qw/
+        Authentication
+        Authentication::Credential::Password
+    /;
+
+    my %users = (
+        user => { password => "s3cr3t" },
+    );
+    
+    our $users = Catalyst::Plugin::Authentication::Store::Minimal::Backend->new(\%users);
+
+    sub action : Local {
+        my ( $self, $c ) = @_;
+
+        $c->login( $users->get_user( $c->req->param("login") ),
+            $c->req->param("password") );
+    }
+
+=head1 DESCRIPTION
+
+You probably want L<Catalyst::Plugin::Authentication::Store::Minimal>, unless
+you are mixing several stores in a single app and one of them is Minimal.
+
+Otherwise, this lets you create a store manually.
+
+=head1 METHODS
+
+=over 4
+
+=item new $hash_ref
+
+Constructs a new store object, which uses the supplied hash ref as it's backing
+structure.
+
+=item get_user $id
+
+Keys the hash by $id and returns the value.
+
+If the return value is unblessed it will be blessed as
+L<Catalyst::Plugin::Authentication::User::Hash>.
+
+=item user_supports
+
+Chooses a random user from the hash and delegates to it.
+
+=back
+
+=cut
+
+