[Catalyst-commits] r8698 - in Catalyst-Runtime/5.80/trunk: . lib/Catalyst t

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2008-12-03 10:51:11 +0000 (Wed, 03 Dec 2008)
New Revision: 8698

Added:
   Catalyst-Runtime/5.80/trunk/t/custom_request.t
Modified:
   Catalyst-Runtime/5.80/trunk/Changes
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/Request.pm
Log:
Fix for Catalyst::Action::REST

Modified: Catalyst-Runtime/5.80/trunk/Changes
===================================================================
--- Catalyst-Runtime/5.80/trunk/Changes	2008-12-03 09:22:40 UTC (rev 8697)
+++ Catalyst-Runtime/5.80/trunk/Changes	2008-12-03 10:51:11 UTC (rev 8698)
@@ -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)

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/Request.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/Request.pm	2008-12-03 09:22:40 UTC (rev 8697)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/Request.pm	2008-12-03 10:51:11 UTC (rev 8698)
@@ -10,6 +10,8 @@
 
 use Moose;
 
+with 'MooseX::Emulate::Class::Accessor::Fast';
+
 has action => (is => 'rw');
 has address => (is => 'rw');
 has arguments => (is => 'rw', default => sub { [] });

Added: Catalyst-Runtime/5.80/trunk/t/custom_request.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/custom_request.t	                        (rev 0)
+++ Catalyst-Runtime/5.80/trunk/t/custom_request.t	2008-12-03 10:51:11 UTC (rev 8698)
@@ -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';
+
+