From: Tomas Doran <bobtfish@bobtfish.net>
Date: Wed, 3 Dec 2008 10:51:11 +0000 (+0000)
Subject: Fix for Catalyst::Action::REST
X-Git-Tag: 5.8000_04~19
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=b99ff5d87e80f13652bf374e2ce8f10c7156ac6e

Fix for Catalyst::Action::REST
---

diff --git a/Changes b/Changes
index af282c3..a9ec1bb 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,9 @@
 # This file documents the revision history for Perl extension Catalyst.
 
 5.8000_04
+        - Add MooseX::Emulate::Class::Accessor::Fast to Catalyst::Request,
+          needed by Catalyst::Request::REST (t0m)
+          - Test for this (t0m)
         - Make hostname resolution lazy (Marc Mims)
         - Support mocking virtualhosts in test suite (Jason Gottshall)
         - Add README (marcus)
diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm
index 27f521f..c49d283 100644
--- a/lib/Catalyst/Request.pm
+++ b/lib/Catalyst/Request.pm
@@ -10,6 +10,8 @@ use HTTP::Headers;
 
 use Moose;
 
+with 'MooseX::Emulate::Class::Accessor::Fast';
+
 has action => (is => 'rw');
 has address => (is => 'rw');
 has arguments => (is => 'rw', default => sub { [] });
diff --git a/t/custom_request.t b/t/custom_request.t
new file mode 100644
index 0000000..e7a80ce
--- /dev/null
+++ b/t/custom_request.t
@@ -0,0 +1,16 @@
+use strict;
+use warnings;
+use Test::More tests => 1;
+use Test::Exception;
+
+lives_ok {
+    package TestApp::TestCustomRequest;
+    use strict;
+    use warnings;
+    use base qw/Catalyst::Request/;
+
+    # Catalyst::Request::REST uses this, so test it in core..
+    __PACKAGE__->mk_accessors(qw( custom_accessor ));
+} 'Can make a custom request class';
+
+