[Catalyst-commits] r8062 - in Catalyst-Controller-DBIC-API/1.000/trunk: . lib/Catalyst/Controller/DBIC/API

[lukes at dev.catalyst.perl.org]

Author: lukes
Date: 2008-06-30 20:07:22 +0100 (Mon, 30 Jun 2008)
New Revision: 8062

Modified:
   Catalyst-Controller-DBIC-API/1.000/trunk/Changes
   Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/API/RPC.pm
Log:
added deserialization support for RPC

Modified: Catalyst-Controller-DBIC-API/1.000/trunk/Changes
===================================================================
--- Catalyst-Controller-DBIC-API/1.000/trunk/Changes	2008-06-30 19:03:11 UTC (rev 8061)
+++ Catalyst-Controller-DBIC-API/1.000/trunk/Changes	2008-06-30 19:07:22 UTC (rev 8062)
@@ -1,5 +1,8 @@
 Revision history for Catalyst-Controller-DBIC-API
 
+1.000002
+- Fixed lack of deserialization under RPC
+
 1.000001
 - Improved docs
 

Modified: Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/API/RPC.pm
===================================================================
--- Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/API/RPC.pm	2008-06-30 19:03:11 UTC (rev 8061)
+++ Catalyst-Controller-DBIC-API/1.000/trunk/lib/Catalyst/Controller/DBIC/API/RPC.pm	2008-06-30 19:07:22 UTC (rev 8062)
@@ -86,6 +86,20 @@
 
 =cut 
 
+sub begin :Private {
+	my ($self, $c) = @_;
+
+	$c->forward('deserialize');
+	$c->req->params($c->req->data);
+	$self->NEXT::begin($c);	
+}
+
+# from Catalyst::Action::Serialize
+sub deserialize :ActionClass('Deserialize') {
+	my ($self, $c) = @_;
+
+}
+
 sub object :Chained('setup') :CaptureArgs(1) :PathPart('id') {
 	my ($self, $c, $id) = @_;