r10518@t0mlaptop (orig r10517): t0m | 2009-06-12 11:27:58 +0100

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

diff --git a/lib/Catalyst/Authentication/Store/Minimal.pm b/lib/Catalyst/Authentication/Store/Minimal.pm
index 7c03198..7b7505b 100644 (file)
--- a/lib/Catalyst/Authentication/Store/Minimal.pm
+++ b/lib/Catalyst/Authentication/Store/Minimal.pm
@@ -1,20 +1,14 @@
 package Catalyst::Authentication::Store::Minimal;
-
-use strict;
-use warnings;
-
+use Moose;
 use Catalyst::Authentication::User::Hash;
-use Scalar::Util qw( blessed );
-use base qw/Class::Accessor::Fast/;
+use namespace::autoclean;
 
-BEGIN {
-    __PACKAGE__->mk_accessors(qw/userhash/);
-}
+has userhash => ( is => 'rw');
 
-sub new {
+sub BUILDARGS {
     my ( $class, $config, $app, $realm) = @_;
 
-    bless { userhash => $config->{'users'} }, $class;
+    { userhash => $config->{'users'} };
 }
 
 sub from_session {