X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FPlugin%2FAuthentication%2FUser%2FHash.pm;h=563c7639908838129c896fceade9a593f1f024db;hb=e1e685783fb9bf6c25835516479d27b9d60843aa;hp=fb18c0b7f1b40cd6c7fcbec6b07a0ea4e46dd802;hpb=87ca1824ddcc9dd4f3b1cfde15c302685228a2fd;p=catagits%2FCatalyst-Plugin-Authentication.git

diff --git a/lib/Catalyst/Plugin/Authentication/User/Hash.pm b/lib/Catalyst/Plugin/Authentication/User/Hash.pm
index fb18c0b..563c763 100644
--- a/lib/Catalyst/Plugin/Authentication/User/Hash.pm
+++ b/lib/Catalyst/Plugin/Authentication/User/Hash.pm
@@ -1,97 +1,9 @@
-#!/usr/bin/perl
-
 package Catalyst::Plugin::Authentication::User::Hash;
-use base qw/Catalyst::Plugin::Authentication::User/;
 
 use strict;
 use warnings;
 
-sub new {
-    my $class = shift;
-
-    bless { ( @_ > 1 ) ? @_ : %{ $_[0] } }, $class;
-}
-
-sub AUTOLOAD {
-    my $self = shift;
-    ( my $key ) = ( our $AUTOLOAD =~ m/([^:]*)$/ );
-
-    $self->_accessor( $key, @_ );
-}
-
-sub id {
-    my $self = shift;
-    $self->_accessor( "id", @_ );
-}
-
-sub store {
-    my $self = shift;
-    ref $self || $self;
-}
-
-sub _accessor {
-    my $self = shift;
-    my $key  = shift;
-
-    if (@_) {
-        my $arr = $self->{__hash_obj_key_is_array}{$key} = @_ > 1;
-        $self->{$key} = $arr ? [@_] : shift;
-    }
-
-    my $data = $self->{$key};
-    ( $self->{__hash_obj_key_is_array}{$key} || $key =~ /roles/ )
-      ? @{ $data || [] }
-      : $data;
-}
-
-my %features = (
-    password => {
-        clear      => ["password"],
-        crypted    => ["crypted_password"],
-        hashed     => [qw/hashed_password hash_algorithm/],
-        self_check => undef,
-    },
-    roles   => ["roles"],
-    session => 1,
-);
-
-sub supports {
-    my ( $self, @spec ) = @_;
-
-    my $cursor = \%features;
-
-    return 1 if @spec == 1 and exists $self->{ $spec[0] };
-
-    # traverse the feature list,
-    for (@spec) {
-        return if ref($cursor) ne "HASH";
-        $cursor = $cursor->{$_};
-    }
-
-    if ( ref $cursor ) {
-        die "bad feature spec: @spec" unless ref $cursor eq "ARRAY";
-
-        # check that all the keys required for a feature are in here
-        foreach my $key (@$cursor) {
-            return undef unless exists $self->{$key};
-        }
-
-        return 1;
-    }
-    else {
-        return $cursor;
-    }
-}
-
-sub for_session {
-    my $self = shift;
-    return $self->store && $self->id || $self; # if we have a store and an ID we serialize by ref, otherwise we serialize the whole user
-}
-
-sub from_session {
-    my ( $self, $c, $user ) = @_;
-    $user;
-}
+use base qw/Catalyst::Authentication::User::Hash/;
 
 __PACKAGE__;
 
@@ -101,58 +13,13 @@ __END__
 
 =head1 NAME
 
-Catalyst::Plugin::Authentication::User::Hash - An easy authentication user
-object based on hashes.
-
-=head1 SYNOPSIS
-
-	use Catalyst::Plugin::Authentication::User::Hash;
-	
-	Catalyst::Plugin::Authentication::User::Hash->new(
-		password => "s3cr3t",
-	);
+Catalyst::Plugin::Authentication::User::Hash - Compatibility shim
 
 =head1 DESCRIPTION
 
-This implementation of authentication user handles is supposed to go hand in
-hand with L<Catalyst::Plugin::Authentication::Store::Minimal>.
-
-=head1 METHODS
-
-=over 4
-
-=item new @pairs
-
-Create a new object with the key-value-pairs listed in the arg list.
-
-=item supports
-
-Checks for existence of keys that correspond with features.
-
-=item for_session
-
-Just returns $self, expecting it to be serializable.
-
-=item from_session
-
-Just passes returns the unserialized object, hoping it's intact.
-
-=item AUTOLOAD
-
-Accessor for the key whose name is the method.
-
-=item id
-
-=item store
-
-Accessors that override superclass's dying virtual methods.
-
-=back
-
-=head1 SEE ALSO
-
-L<Hash::AsObject>
-
-=cut
+THIS IS A COMPATIBILITY SHIM.  It allows old configurations of Catalyst
+Authentication to work without code changes.  
 
+B<DO NOT USE IT IN ANY NEW CODE!>
 
+Please see L<Catalyst::Authentication::User::Hash> for more information.