[Catalyst-commits] r11562 - in Catalyst-Plugin-Session-State-URI/trunk: . lib/Catalyst/Plugin/Session/State

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-10-16 15:09:24 +0000 (Fri, 16 Oct 2009)
New Revision: 11562

Modified:
   Catalyst-Plugin-Session-State-URI/trunk/Makefile.PL
   Catalyst-Plugin-Session-State-URI/trunk/lib/Catalyst/Plugin/Session/State/URI.pm
Log:
Port to Moose.

Modified: Catalyst-Plugin-Session-State-URI/trunk/Makefile.PL
===================================================================
--- Catalyst-Plugin-Session-State-URI/trunk/Makefile.PL	2009-10-16 14:46:48 UTC (rev 11561)
+++ Catalyst-Plugin-Session-State-URI/trunk/Makefile.PL	2009-10-16 15:09:24 UTC (rev 11562)
@@ -11,6 +11,9 @@
 requires 'MIME::Types';
 requires 'Test::MockObject'          => '1.01';
 requires 'MRO::Compat';
+requires 'namespace::clean';
+requires 'Moose';
+requires 'MooseX::Emulate::Class::Accessor::Fast';
 
 auto_install;
 resources repository => 'http://dev.catalyst.perl.org/repos/Catalyst/Catalyst-Plugin-Session-State-URI/';

Modified: Catalyst-Plugin-Session-State-URI/trunk/lib/Catalyst/Plugin/Session/State/URI.pm
===================================================================
--- Catalyst-Plugin-Session-State-URI/trunk/lib/Catalyst/Plugin/Session/State/URI.pm	2009-10-16 14:46:48 UTC (rev 11561)
+++ Catalyst-Plugin-Session-State-URI/trunk/lib/Catalyst/Plugin/Session/State/URI.pm	2009-10-16 15:09:24 UTC (rev 11562)
@@ -1,9 +1,6 @@
 package Catalyst::Plugin::Session::State::URI;
-use base qw/Catalyst::Plugin::Session::State Class::Accessor::Fast/;
 
-use strict;
-use warnings;
-
+use Moose;
 use HTML::TokeParser::Simple;
 use MIME::Types;
 use MRO::Compat;
@@ -11,8 +8,13 @@
 use URI::Find;
 use URI::QueryParam;
 
+use namespace::clean -except => 'meta';
+
 our $VERSION = '0.12';
 
+extends 'Catalyst::Plugin::Session::State';
+with 'MooseX::Emulate::Class::Accessor::Fast';
+
 __PACKAGE__->mk_accessors(qw/_sessionid_from_uri _sessionid_to_rewrite/);
 
 sub get_session_id {