From: Hans Dieter Pearcey <hdp@weftsoar.net>
Date: Mon, 13 Apr 2009 06:47:32 +0000 (-0400)
Subject: refactor deserialize RequestRole
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Action-REST.git;a=commitdiff_plain;h=3ede9e11bbe00987ef4801922ab930c4e083aaee

refactor deserialize RequestRole
---

diff --git a/lib/Catalyst/Request/REST.pm b/lib/Catalyst/Request/REST.pm
index fa7838a..2fcf9e2 100644
--- a/lib/Catalyst/Request/REST.pm
+++ b/lib/Catalyst/Request/REST.pm
@@ -11,8 +11,8 @@ use strict;
 use warnings;
 
 use Moose;
-extends qw/Catalyst::Request Class::Accessor::Fast/;
-with 'Catalyst::RequestRole::REST';
+extends qw/Catalyst::Request/;
+with qw/Catalyst::RequestRole::REST Catalyst::RequestRole::Deserialize/;
 
 use Catalyst::Utils;
 
@@ -36,15 +36,6 @@ sub _insert_self_into {
 
 Catalyst::Request::REST - A REST-y subclass of Catalyst::Request
 
-=head1 METHODS
-
-If the request went through the Deserializer action, this method will
-returned the deserialized data structure.
-
-=cut
-
-__PACKAGE__->mk_accessors(qw(data));
-
 =head1 AUTHOR
 
 Adam Jacob <adam@stalecoffee.org>, with lots of help from mst and jrockway
diff --git a/lib/Catalyst/RequestRole/Deserialize.pm b/lib/Catalyst/RequestRole/Deserialize.pm
new file mode 100644
index 0000000..c49ade6
--- /dev/null
+++ b/lib/Catalyst/RequestRole/Deserialize.pm
@@ -0,0 +1,10 @@
+package Catalyst::RequestRole::Deserialize;
+use Moose::Role;
+use namespace::clean -except => 'meta';
+
+has data => (
+  is => 'ro',
+  writer => '_set_data',
+);
+
+1;