[Catalyst-commits] r12704 - in trunk/Catalyst-Plugin-Session-PerUser: . lib/Catalyst/Plugin/Session

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2010-01-21 09:35:49 +0000 (Thu, 21 Jan 2010)
New Revision: 12704

Modified:
   trunk/Catalyst-Plugin-Session-PerUser/Changes
   trunk/Catalyst-Plugin-Session-PerUser/Makefile.PL
   trunk/Catalyst-Plugin-Session-PerUser/lib/Catalyst/Plugin/Session/PerUser.pm
Log:
Switch to Moose and MRO::Compat

Modified: trunk/Catalyst-Plugin-Session-PerUser/Changes
===================================================================
--- trunk/Catalyst-Plugin-Session-PerUser/Changes	2010-01-20 23:52:35 UTC (rev 12703)
+++ trunk/Catalyst-Plugin-Session-PerUser/Changes	2010-01-21 09:35:49 UTC (rev 12704)
@@ -1,5 +1,8 @@
 Revision history for Perl extension Catalyst::Plugin::Session::PerUser
 
+    - Switch to using Moose and MRO::Compat rather than NEXT and
+      Class::Accessor::Fast (RT#53862)
+
 0.04    2009-08-18 00:25:00
     - switch to Module::Install
     - add basic use test, plus pod/pod coverage tests

Modified: trunk/Catalyst-Plugin-Session-PerUser/Makefile.PL
===================================================================
--- trunk/Catalyst-Plugin-Session-PerUser/Makefile.PL	2010-01-20 23:52:35 UTC (rev 12703)
+++ trunk/Catalyst-Plugin-Session-PerUser/Makefile.PL	2010-01-21 09:35:49 UTC (rev 12704)
@@ -1,8 +1,11 @@
-use inc::Module::Install 0.87;
+use inc::Module::Install 0.91;
 
 name 'Catalyst-Plugin-Session-PerUser';
 all_from 'lib/Catalyst/Plugin/Session/PerUser.pm';
 
+requires 'Moose';
+requires 'namespace::autoclean';
+requires 'MRO::Compat';
 requires 'Catalyst::Plugin::Session' => '0.06';
 requires 'Catalyst::Plugin::Authentication';
 requires 'Hash::Merge';

Modified: trunk/Catalyst-Plugin-Session-PerUser/lib/Catalyst/Plugin/Session/PerUser.pm
===================================================================
--- trunk/Catalyst-Plugin-Session-PerUser/lib/Catalyst/Plugin/Session/PerUser.pm	2010-01-20 23:52:35 UTC (rev 12703)
+++ trunk/Catalyst-Plugin-Session-PerUser/lib/Catalyst/Plugin/Session/PerUser.pm	2010-01-21 09:35:49 UTC (rev 12704)
@@ -1,19 +1,16 @@
 #!/usr/bin/perl
 
 package Catalyst::Plugin::Session::PerUser;
-use base qw/Class::Accessor::Fast/;
+use Moose;
+use namespace::autoclean;
 
-use strict;
-use warnings;
-
 our $VERSION = "0.04";
 
+use MRO::Compat;
 use Hash::Merge         ();
 use Object::Signature   ();
 
-BEGIN {
-    __PACKAGE__->mk_accessors(qw/_user_session _user_session_data_sig/);
-}
+has [qw/_user_session _user_session_data_sig/] => ( is => 'rw' );
 
 sub setup {
     my $self = shift;
@@ -26,12 +23,12 @@
         %$cfg,
     );
 
-    $self->NEXT::setup;
+    $self->maybe::next::method(@_);
 }
 
 sub set_authenticated {
     my $c = shift;
-    $c->NEXT::set_authenticated(@_);
+    $c->maybe::next::method(@_);
 
     if ( $c->config->{user_session}{migrate} ) {
         $c->merge_session_to_user;
@@ -44,7 +41,7 @@
     $c->_save_user_session;
     $c->_user_session(undef);
 
-    $c->NEXT::logout(@_);
+    $c->maybe::next::method(@_);
 }
 
 sub user_session {
@@ -100,7 +97,7 @@
 
     $c->_save_user_session;
 
-    $c->NEXT::finalize(@_);
+    $c->maybe::next::method(@_);
 }
 
 sub user_session_sid {