## 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.
## 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__;