remove she-bang lines.

[catagits/Catalyst-Plugin-Authentication.git] / lib / Catalyst / Plugin / Authentication / User.pm

diff --git a/lib/Catalyst/Plugin/Authentication/User.pm b/lib/Catalyst/Plugin/Authentication/User.pm
index b12f848..e2746eb 100644 (file)
--- a/lib/Catalyst/Plugin/Authentication/User.pm
+++ b/lib/Catalyst/Plugin/Authentication/User.pm
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 package Catalyst::Plugin::Authentication::User;
 
 use strict;
@@ -8,7 +6,7 @@ use base qw/Class::Accessor::Fast/;
 
 ## auth_realm is the realm this user came from. 
 BEGIN {
-    __PACKAGE__->mk_accessors(qw/auth_realm/);
+    __PACKAGE__->mk_accessors(qw/auth_realm store/);
 }
 
 ## THIS IS NOT A COMPLETE CLASS! it is intended to provide base functionality only.  
@@ -68,10 +66,11 @@ sub get_object {
 
 ## 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};
-}
+## store should be a read-write accessor - so it was moved to mk_accessors
+##sub store { 
+##    my ($self) = @_;
+##    return $self->auth_realm->{store};
+##}
 
 __PACKAGE__;