X-Git-Url: https://ruin.nu/git/?p=ndwebbie.git;a=blobdiff_plain;f=lib%2FCatalyst%2FPlugin%2FAuthentication%2FStore%2FNDWeb.pm;h=218207774cae0e86c4195709e2b0f3fe0af0bcaf;hp=351e838bd1bbeb5a43ed39c104c97e11bac4571e;hb=c018a7ccbb1fd8bdec5c8f97b151686ae933870b;hpb=e4bc2f39c57c25dacc316a602e8d0280b4fbcce7 diff --git a/lib/Catalyst/Plugin/Authentication/Store/NDWeb.pm b/lib/Catalyst/Plugin/Authentication/Store/NDWeb.pm index 351e838..2182077 100644 --- a/lib/Catalyst/Plugin/Authentication/Store/NDWeb.pm +++ b/lib/Catalyst/Plugin/Authentication/Store/NDWeb.pm @@ -3,6 +3,7 @@ package Catalyst::Plugin::Authentication::Store::NDWeb; use strict; use warnings; use Moose; +use MRO::Compat; use NDWeb::Auth::User; @@ -13,24 +14,15 @@ our $VERSION= "0.104"; sub setup { my $c = shift; - $c->default_auth_store( - Catalyst::Plugin::Authentication::Store::NDWeb->new( - ) - ); + $c->default_auth_store( + Catalyst::Plugin::Authentication::Store::NDWeb->new( + ) + ); - $c->NEXT::setup(@_); + $c->next::method(@_); } -sub new { - my ( $class ) = @_; - - my $self = { - }; - - bless $self, $class; -} - sub from_session { my ( $self, $c, $frozenuser ) = @_; @@ -58,7 +50,7 @@ sub user_supports { NDWeb::User->supports( @_ ); } -__PACKAGE__; +__PACKAGE__->meta->make_immutable; __END__