[Catalyst-commits] r11493 - Catalyst-Plugin-Session-Store-Delegate/trunk/lib/Catalyst/Plugin/Session/Store

rafl at dev.catalyst.perl.org rafl at dev.catalyst.perl.org
Thu Oct 8 21:54:11 GMT 2009


Author: rafl
Date: 2009-10-08 21:54:10 +0000 (Thu, 08 Oct 2009)
New Revision: 11493

Modified:
   Catalyst-Plugin-Session-Store-Delegate/trunk/lib/Catalyst/Plugin/Session/Store/Delegate.pm
Log:
Port to Moose.

Modified: Catalyst-Plugin-Session-Store-Delegate/trunk/lib/Catalyst/Plugin/Session/Store/Delegate.pm
===================================================================
--- Catalyst-Plugin-Session-Store-Delegate/trunk/lib/Catalyst/Plugin/Session/Store/Delegate.pm	2009-10-08 21:54:06 UTC (rev 11492)
+++ Catalyst-Plugin-Session-Store-Delegate/trunk/lib/Catalyst/Plugin/Session/Store/Delegate.pm	2009-10-08 21:54:10 UTC (rev 11493)
@@ -1,16 +1,14 @@
 #!/usr/bin/perl
 
 package Catalyst::Plugin::Session::Store::Delegate;
-use base qw/
-    Catalyst::Plugin::Session::Store
-    Class::Accessor::Fast
-/;
 
-use strict;
-use warnings;
-
+use Moose;
 use MRO::Compat;
+use namespace::clean -except => 'meta';
 
+extends 'Catalyst::Plugin::Session::Store';
+with 'MooseX::Emulate::Class::Accessor::Fast';
+
 our $VERSION = "0.04";
 
 __PACKAGE__->mk_accessors(qw/_session_store_delegate/);
@@ -113,6 +111,8 @@
     }
 }
 
+__PACKAGE__->meta->make_immutable;
+
 __PACKAGE__;
 
 __END__




More information about the Catalyst-commits mailing list