X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Action-REST.git;a=blobdiff_plain;f=lib%2FCatalyst%2FRequest%2FREST.pm;h=dd45a16495c72a58132a9106e364a78cf7d7f0ae;hp=0e5311ce64d7c5c3db7c08c64a3b588663ce13e3;hb=f168fa3e99ffc2c60ecb8987101c69a53e11e390;hpb=930013e6f19b25a090c3f8839495ad8d9b15ff6d

diff --git a/lib/Catalyst/Request/REST.pm b/lib/Catalyst/Request/REST.pm
index 0e5311c..dd45a16 100644
--- a/lib/Catalyst/Request/REST.pm
+++ b/lib/Catalyst/Request/REST.pm
@@ -1,14 +1,15 @@
 package Catalyst::Request::REST;
-
 use Moose;
-use namespace::autoclean;
-use Scalar::Util qw/blessed/;
-
-extends qw/Catalyst::Request Class::Accessor::Fast/;
 
 use Catalyst::Utils;
 use HTTP::Headers::Util qw(split_header_words);
 
+use namespace::autoclean;
+
+extends 'Catalyst::Request';
+
+has [qw/ data accept_only /] => ( is => 'rw' );
+
 sub _insert_self_into {
   my ($class, $app_class ) = @_;
   # the fallback to $app_class is for the (rare and deprecated) case when
@@ -26,8 +27,6 @@ sub _insert_self_into {
   }
 }
 
-__PACKAGE__->mk_accessors(qw(data accept_only));
-
 sub accepted_content_types {
     my $self = shift;
 
@@ -85,6 +84,9 @@ sub accepts {
     return grep { $_ eq $type } @{ $self->accepted_content_types };
 }
 
+__PACKAGE__->meta->make_immutable;
+__END__
+
 =head1 NAME
 
 Catalyst::Request::REST - A REST-y subclass of Catalyst::Request
@@ -170,5 +172,3 @@ See L<Catalyst::Action::REST> for authors.
 You may distribute this code under the same terms as Perl itself.
 
 =cut
-
-1;