package Catalyst::Authentication::User;
-
-use strict;
-use warnings;
-use base qw/Class::Accessor::Fast/;
+use Moose;
use Scalar::Util qw/refaddr/;
+use namespace::autoclean;
## auth_realm is the realm this user came from.
-__PACKAGE__->mk_accessors(qw/auth_realm store/);
+has [qw/auth_realm store/] => ( is => 'rw' );
## THIS IS NOT A COMPLETE CLASS! it is intended to provide base functionality only.
## translation - it won't work if you try to use it directly.
(my $method) = (our $AUTOLOAD =~ /([^:]+)$/);
return if $method eq "DESTROY";
- my $obj = $self->obj;
- # Don't bother unless we have a backing object
- return if refaddr($obj) eq refaddr($self);
-
- $obj->$method(@_);
-}
-
+__PACKAGE__->meta->make_immutable;
__PACKAGE__;
__END__