use warnings;
use Scalar::Util qw/refaddr/;
-our $VERSION = '1.011';
+our $VERSION = '1.012';
BEGIN { __PACKAGE__->mk_accessors(qw/user store/) }
}
}
+=head2 get
+
+A simple wrapper around has_attribute() to satisfy the Catalyst::Authentication::User API.
+
+=cut
+
+sub get { return shift->has_attribute(@_) }
+
+=head2 get_object
+
+Satisfies the Catalyst::Authentication::User API and returns the contents of the user()
+attribute.
+
+=cut
+
+sub get_object { return shift->user }
+
=head2 ldap_connection
Re-binds to the auth store with the credentials of the user you logged in