[Catalyst-commits] r11492 - in Catalyst-Plugin-Session-Store-Delegate/trunk: . lib/Catalyst/Plugin/Session/Store

[rafl at dev.catalyst.perl.org]

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

Modified:
   Catalyst-Plugin-Session-Store-Delegate/trunk/Makefile.PL
   Catalyst-Plugin-Session-Store-Delegate/trunk/lib/Catalyst/Plugin/Session/Store/Delegate.pm
Log:
Port to new session config key.

Modified: Catalyst-Plugin-Session-Store-Delegate/trunk/Makefile.PL
===================================================================
--- Catalyst-Plugin-Session-Store-Delegate/trunk/Makefile.PL	2009-10-08 21:37:27 UTC (rev 11491)
+++ Catalyst-Plugin-Session-Store-Delegate/trunk/Makefile.PL	2009-10-08 21:54:06 UTC (rev 11492)
@@ -6,7 +6,7 @@
 
 all_from 'lib/Catalyst/Plugin/Session/Store/Delegate.pm';
 name 'Catalyst-Plugin-Session-Store-Delegate';
-requires 'Catalyst::Plugin::Session' => '0.12';
+requires 'Catalyst::Plugin::Session' => '0.27';
 requires 'Class::Accessor::Fast' => '0';
 test_requires 'Test::More' => '0';
 test_requires 'Test::use::ok' => '0';

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:37:27 UTC (rev 11491)
+++ Catalyst-Plugin-Session-Store-Delegate/trunk/lib/Catalyst/Plugin/Session/Store/Delegate.pm	2009-10-08 21:54:06 UTC (rev 11492)
@@ -17,7 +17,7 @@
 
 sub session_store_model_name {
     my $c = shift;
-    $c->config->{session}{model} || "Sessions";
+    $c->_session_plugin_config->{model} || "Sessions";
 }
 
 sub session_store_model {
@@ -54,7 +54,7 @@
     my $model = $c->session_store_model($id);
 
     # allow methods or arbitrary code refs
-    my $method = $c->config->{session}{get_delegate} || "get_session_store_delegate";
+    my $method = $c->_session_plugin_config->{get_delegate} || "get_session_store_delegate";
     $model->$method($id) || die "couldn't get delegate from model: $model with method: $method";
 }