[Catalyst-commits] r9968 - in trunk/Catalyst-Plugin-Session: . lib/Catalyst/Plugin lib/Catalyst/Plugin/Session/Test t

[karpet at dev.catalyst.perl.org]

Author: karpet
Date: 2009-04-30 21:18:04 +0100 (Thu, 30 Apr 2009)
New Revision: 9968

Modified:
   trunk/Catalyst-Plugin-Session/Changes
   trunk/Catalyst-Plugin-Session/Makefile.PL
   trunk/Catalyst-Plugin-Session/lib/Catalyst/Plugin/Session.pm
   trunk/Catalyst-Plugin-Session/lib/Catalyst/Plugin/Session/Test/Store.pm
   trunk/Catalyst-Plugin-Session/t/00_basic_sanity.t
Log:
switch from CAF to Moose (fixes bug raised in Session::Store::File)

Modified: trunk/Catalyst-Plugin-Session/Changes
===================================================================
--- trunk/Catalyst-Plugin-Session/Changes	2009-04-30 20:11:57 UTC (rev 9967)
+++ trunk/Catalyst-Plugin-Session/Changes	2009-04-30 20:18:04 UTC (rev 9968)
@@ -2,6 +2,7 @@
 
 0.21 Not released
         - Hide the internal packages in Catalyst::Plugin::Session::Test::Store from PAUSE.
+        - Convert from CAF to Moose with Moosex::Emulate::Class::Accessor::Fast
 
 0.20 2009-02-05
         - No code changes since 0.19_01 dev release.

Modified: trunk/Catalyst-Plugin-Session/Makefile.PL
===================================================================
--- trunk/Catalyst-Plugin-Session/Makefile.PL	2009-04-30 20:11:57 UTC (rev 9967)
+++ trunk/Catalyst-Plugin-Session/Makefile.PL	2009-04-30 20:18:04 UTC (rev 9968)
@@ -18,6 +18,8 @@
 requires 'File::Temp';
 requires 'Object::Signature';
 requires 'MRO::Compat';
+requires 'Moose';
+requires 'MooseX::Emulate::Class::Accessor::Fast';
 
 # an indirect dep. needs a certain version.
 requires 'Tie::RefHash' => '1.34';

Modified: trunk/Catalyst-Plugin-Session/lib/Catalyst/Plugin/Session/Test/Store.pm
===================================================================
--- trunk/Catalyst-Plugin-Session/lib/Catalyst/Plugin/Session/Test/Store.pm	2009-04-30 20:11:57 UTC (rev 9967)
+++ trunk/Catalyst-Plugin-Session/lib/Catalyst/Plugin/Session/Test/Store.pm	2009-04-30 20:18:04 UTC (rev 9968)
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl
 
 package Catalyst::Plugin::Session::Test::Store;
 

Modified: trunk/Catalyst-Plugin-Session/lib/Catalyst/Plugin/Session.pm
===================================================================
--- trunk/Catalyst-Plugin-Session/lib/Catalyst/Plugin/Session.pm	2009-04-30 20:11:57 UTC (rev 9967)
+++ trunk/Catalyst-Plugin-Session/lib/Catalyst/Plugin/Session.pm	2009-04-30 20:18:04 UTC (rev 9968)
@@ -1,11 +1,12 @@
 #!/usr/bin/perl
 
 package Catalyst::Plugin::Session;
-use base qw/Class::Accessor::Fast/;
 
 use strict;
 use warnings;
 
+use Moose;
+with 'MooseX::Emulate::Class::Accessor::Fast';
 use MRO::Compat;
 use Catalyst::Exception ();
 use Digest              ();
@@ -13,11 +14,11 @@
 use Object::Signature   ();
 use Carp;
 
-our $VERSION = '0.20';
+our $VERSION = '0.21';
 
 my @session_data_accessors; # used in delete_session
-BEGIN {
-    __PACKAGE__->mk_accessors(
+
+__PACKAGE__->mk_accessors(
         "_session_delete_reason",
         @session_data_accessors = qw/
           _sessionid
@@ -33,9 +34,9 @@
           _tried_loading_session_expires
           _tried_loading_flash_data
           /
-    );
-}
+);
 
+
 sub setup {
     my $c = shift;
 

Modified: trunk/Catalyst-Plugin-Session/t/00_basic_sanity.t
===================================================================
--- trunk/Catalyst-Plugin-Session/t/00_basic_sanity.t	2009-04-30 20:11:57 UTC (rev 9967)
+++ trunk/Catalyst-Plugin-Session/t/00_basic_sanity.t	2009-04-30 20:18:04 UTC (rev 9968)
@@ -9,3 +9,6 @@
 my $m; BEGIN { use_ok($m = "Catalyst::Plugin::Session") }
 
 can_ok($m, $_) for qw/sessionid session session_delete_reason/;
+
+diag("Testing Catalyst::Plugin::Session $Catalyst::Plugin::Session::VERSION");
+