X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FPlugin%2FAuthentication%2FUser.pm;h=59612202cb821dd23fc98dc86f765d2edc2bdbb9;hb=89505ffb6e0211be9d995df31f7b7de3913e3922;hp=9fb90eba213d7bf8cff9d88f0120a4f64b88364d;hpb=14f98cb2cc2ab0c3b26894e50c8fbbb2b7dc662a;p=catagits%2FCatalyst-Plugin-Authentication.git

diff --git a/lib/Catalyst/Plugin/Authentication/User.pm b/lib/Catalyst/Plugin/Authentication/User.pm
index 9fb90eb..5961220 100644
--- a/lib/Catalyst/Plugin/Authentication/User.pm
+++ b/lib/Catalyst/Plugin/Authentication/User.pm
@@ -5,9 +5,17 @@ package Catalyst::Plugin::Authentication::User;
 use strict;
 use warnings;
 
-sub id { die "virtual" }
 
-sub store { die "virtual" }
+## chances are you want to override this.
+sub id { shift->get('id'); }
+
+## returns the realm the user came from - not a good idea to override this.
+sub auth_realm {
+    my $self = shift;
+    $self->{'realm'};
+}
+
+
 
 sub supports {
     my ( $self, @spec ) = @_;
@@ -25,6 +33,47 @@ sub supports {
     return $cursor;
 }
 
+## REQUIRED.
+## get should return the value of the field specified as it's single argument from the underlying
+## user object.  This is here to provide a simple, standard way of accessing individual elements of a user
+## object - ensuring no overlap between C::P::A::User methods and actual fieldnames.
+## this is not the most effecient method, since it uses introspection.  If you have an underlying object
+## you most likely want to write this yourself.
+sub get {
+    my ($self, $field) = @_;
+    
+    my $object;
+    if ($object = $self->get_object && $object->can($field)) {
+        return $object->$field();
+    } else {
+        return undef;
+    }
+}
+
+## REQUIRED.
+## get_object should return the underlying user object.  This is for when more advanced uses of the 
+## user is required.  Modifications to the existing user, etc.  Changes in the object returned
+## by this routine may not be reflected in the C::P::A::User object - if this is required, re-authenticating
+## the user is probably the best route to take.
+## note that it is perfectly acceptable to return $self in cases where there is no underlying object.
+sub get_object {
+    return shift;
+}
+
+## this is an internal routine.  I suggest you don't rely on it's presence. 
+## sets the realm the user came from.
+sub _set_auth_realm {
+    my ($self, $realmname) = @_;
+    $self->{'realm'} = $realmname;
+}
+
+## Backwards Compatibility
+## you probably want auth_realm, in fact.  but this does work for backwards compatibility.
+sub store { 
+    my ($self) = @_;
+    return $self->auth_realm->{store};
+}
+
 __PACKAGE__;
 
 __END__