X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAuthentication%2FStore%2FLDAP%2FUser.pm;h=559ba164d21b4eb693265ee7dad68446d78334f7;hb=52a972a4846d22d327aee1ec6c0c5e76e216cb58;hp=aa40d03322fbdbda1d589f915807c32a6efeb739;hpb=afb8e81c5dc4d6a63c2de270339da078baf2adb5;p=catagits%2FCatalyst-Authentication-Store-LDAP.git diff --git a/lib/Catalyst/Authentication/Store/LDAP/User.pm b/lib/Catalyst/Authentication/Store/LDAP/User.pm index aa40d03..559ba16 100644 --- a/lib/Catalyst/Authentication/Store/LDAP/User.pm +++ b/lib/Catalyst/Authentication/Store/LDAP/User.pm @@ -49,7 +49,7 @@ use base qw( Catalyst::Authentication::User Class::Accessor::Fast ); use strict; use warnings; -our $VERSION = '0.1004'; +our $VERSION = '0.1005'; BEGIN { __PACKAGE__->mk_accessors(qw/user store/) } @@ -57,18 +57,20 @@ use overload '""' => sub { shift->stringify }, fallback => 1; =head1 METHODS -=head2 new($store, $user) +=head2 new($store, $user, $c) Takes a L object as $store, and the data structure returned by that class's "get_user" -method as $user. +method as $user. The final argument is an instance of your application, +which is passed along for those wanting to subclass User and perhaps use +models for fetching data. Returns a L object. =cut sub new { - my ( $class, $store, $user ) = @_; + my ( $class, $store, $user, $c ) = @_; return unless $user;