Change to Moose

diff --git a/lib/Catalyst/Request/REST.pm b/lib/Catalyst/Request/REST.pm
index 0e5311c..dd45a16 100644 (file)
--- 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;