-#!/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 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
+
+ return $self; # we serialize the whole user
}
sub from_session {