[Catalyst-commits] r9968 - in trunk/Catalyst-Plugin-Session: .
lib/Catalyst/Plugin lib/Catalyst/Plugin/Session/Test t
karpet at dev.catalyst.perl.org
karpet at dev.catalyst.perl.org
Thu Apr 30 20:18:04 GMT 2009
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");
+
More information about the Catalyst-commits
mailing list