X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FRequest%2FREST.pm;h=0228edaf0d323af4c288fa12800d1c447b8c3eb0;hb=15f4af0ef06d11960e6cb9a4bbebf2ec1ac19a54;hp=a646e7c47598a2dae7104e647e7c9a6fd6e54d63;hpb=38e05ec40d124a14cee7ba0503f918a40a8ac5e1;p=catagits%2FCatalyst-Action-REST.git diff --git a/lib/Catalyst/Request/REST.pm b/lib/Catalyst/Request/REST.pm index a646e7c..0228eda 100644 --- a/lib/Catalyst/Request/REST.pm +++ b/lib/Catalyst/Request/REST.pm @@ -21,18 +21,13 @@ sub _insert_self_into { return if $req_class->isa($class); my $req_class_meta = Moose->init_meta( for_class => $req_class ); return if $req_class_meta->does_role('Catalyst::TraitFor::Request::REST'); - if ($req_class eq 'Catalyst::Request') { - $app->request_class($class); - } - else { - my $meta = Moose::Meta::Class->create_anon_class( - superclasses => [$req_class], - roles => ['Catalyst::TraitFor::Request::REST'], - cache => 1 - ); - $meta->add_method(meta => sub { $meta }); - $app->request_class($meta->name); - } + my $meta = Moose::Meta::Class->create_anon_class( + superclasses => [$req_class], + roles => ['Catalyst::TraitFor::Request::REST'], + cache => 1 + ); + $meta->add_method(meta => sub { $meta }); + $app->request_class($meta->name); } __PACKAGE__->meta->make_immutable; @@ -53,11 +48,12 @@ Catalyst::Request::REST - A REST-y subclass of Catalyst::Request =head1 DESCRIPTION This is a subclass of C that applies the -L which adds a few methods to -the request object to faciliate writing REST-y code. +L role to your request class. That trait +adds a few methods to the request object to faciliate writing REST-y code. -This class is only here for backwards compatibility with applications -already subclassing this class. +This class is only here for backwards compatibility with applications already +subclassing this class. New code should use +L directly. L and L will arrange for the request trait to be applied if needed.