-#!/usr/bin/perl
-
package Catalyst::Plugin::Authentication::User::Hash;
use base qw/Catalyst::Plugin::Authentication::User/;
$self->_accessor( $key, @_ );
}
+# this class effectively handles any method calls
+sub can { 1 }
+
sub id {
my $self = shift;
$self->_accessor( "id", @_ );
}
-sub store {
- my $self = shift;
- ref $self || $self;
-}
+## deprecated. Let the base class handle this.
+# sub store {
+# my $self = shift;
+# $self->_accessor( "store", @_ ) || ref $self;
+# }
sub _accessor {
my $self = shift;
: $data;
}
+## password portion of this is no longer necessary, but here for backwards compatibility.
my %features = (
password => {
clear => ["password"],
sub for_session {
my $self = shift;
- return $self; # let's hope we're serialization happy
+
+ return $self; # we serialize the whole user
}
sub from_session {