# 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)
use Moose;
+with 'MooseX::Emulate::Class::Accessor::Fast';
+
has action => (is => 'rw');
has address => (is => 'rw');
has arguments => (is => 'rw', default => sub { [] });
--- /dev/null
+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';
+
+