X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Action-REST.git;a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FREST.pm;h=cbd2095e2091486cbaf00c81bde68fdd5c8cf741;hp=e9ca9b0bea7a0f9efc70d2eef7fdfacd79c56785;hb=3bb36dcaabf34fef5c15b1bb74c5eb198a7f5168;hpb=3faede66379723f231f00d2eafeafbc97cc32750 diff --git a/lib/Catalyst/Action/REST.pm b/lib/Catalyst/Action/REST.pm index e9ca9b0..cbd2095 100644 --- a/lib/Catalyst/Action/REST.pm +++ b/lib/Catalyst/Action/REST.pm @@ -1,30 +1,23 @@ -# -# REST.pm -# Created by: Adam Jacob, Marchex, -# Created on: 10/12/2006 03:00:32 PM PDT -# -# $Id$ - package Catalyst::Action::REST; -use strict; -use warnings; +use Moose; +use namespace::autoclean; -use base 'Catalyst::Action'; +extends 'Catalyst::Action'; use Class::Inspector; -use Catalyst; use Catalyst::Request::REST; use Catalyst::Controller::REST; BEGIN { require 5.008001; } -our $VERSION = '0.73'; +our $VERSION = '0.82'; +$VERSION = eval $VERSION; sub new { my $class = shift; my $config = shift; Catalyst::Request::REST->_insert_self_into( $config->{class} ); - return $class->SUPER::new($config, @_); + return $class->next::method($config, @_); } =head1 NAME @@ -41,15 +34,18 @@ Catalyst::Action::REST - Automated REST Method Dispatching ... do something for GET requests ... } - sub foo_PUT { - ... do somethign for PUT requests ... + # alternatively use an Action + sub foo_PUT : Action { + ... do something for PUT requests ... } =head1 DESCRIPTION This Action handles doing automatic method dispatching for REST requests. It takes a normal Catalyst action, and changes the dispatch to append an -underscore and method name. +underscore and method name. First it will try dispatching to an action with +the generated name, and failing that it will try to dispatch to a regular +method. For example, in the synopsis above, calling GET on "/foo" would result in the foo_GET method being dispatched. @@ -71,8 +67,8 @@ It is likely that you really want to look at L, which brings this class together with automatic Serialization of requests and responses. -When you use this module, the request class will be changed to -L. +When you use this module, it adds the L +role to your request class. =head1 METHODS @@ -95,7 +91,10 @@ sub dispatch { my ($code, $name); # Common case, for foo_GET etc - if ($code = $controller->can($rest_method)) { + if ( $code = $controller->action_for($rest_method) ) { + $c->execute( $self->class, $self, @{ $c->req->args } ); + return $c->forward( $code, $c->req->args ); + } elsif ($code = $controller->can($rest_method)) { # Exceute normal action $c->execute( $self->class, $self, @{ $c->req->args } ); $name = $rest_method; @@ -123,22 +122,16 @@ sub dispatch { $c->execute( $self->class, $self, @{ $c->req->args } ); } -my $_get_allowed_methods = sub { - my ( $controller, $c, $name ) = @_; +sub _get_allowed_methods { + my ( $self, $controller, $c, $name ) = @_; my $class = ref($controller) ? ref($controller) : $controller; - my $methods = Class::Inspector->methods($class); - my @allowed; - foreach my $method ( @{$methods} ) { - if ( $method =~ /^$name\_(.+)$/ ) { - push( @allowed, $1 ); - } - } - return @allowed; + my $methods = Class::Inspector->methods($class); + return map { /^$name\_(.+)$/ } @$methods; }; sub _return_options { my ( $self, $method_name, $controller, $c) = @_; - my @allowed = $controller->$_get_allowed_methods($c, $method_name); + my @allowed = $self->_get_allowed_methods($controller, $c, $method_name); $c->response->content_type('text/plain'); $c->response->status(200); $c->response->header( 'Allow' => \@allowed ); @@ -147,7 +140,7 @@ sub _return_options { sub _return_not_implemented { my ( $self, $method_name, $controller, $c ) = @_; - my @allowed = $controller->$_get_allowed_methods($c, $method_name); + my @allowed = $self->_get_allowed_methods($controller, $c, $method_name); $c->response->content_type('text/plain'); $c->response->status(405); $c->response->header( 'Allow' => \@allowed ); @@ -163,8 +156,13 @@ sub _return_not_implemented { =head1 SEE ALSO -You likely want to look at L, which implements -a sensible set of defaults for a controller doing REST. +You likely want to look at L, which implements a +sensible set of defaults for a controller doing REST. + +This class automatically adds the L role to +your request class. If you're writing a webapp which provides RESTful +responses and still needs to accommodate web browsers, you may prefer to use +L instead. L, L @@ -174,39 +172,46 @@ L, L =item Q: I'm getting a "415 Unsupported Media Type" error. What gives?! -A: Most likely, you haven't set Content-type equal to "application/json", or one of the -accepted return formats. You can do this by setting it in your query string thusly: -?content-type=application%2Fjson (where %2F == / uri escaped). +A: Most likely, you haven't set Content-type equal to "application/json", or +one of the accepted return formats. You can do this by setting it in your query +accepted return formats. You can do this by setting it in your query string +thusly: C<< ?content-type=application%2Fjson (where %2F == / uri escaped). >> -**NOTE** Apache will refuse %2F unless configured otherise. -Make sure AllowEncodedSlashes On is in your httpd.conf file in order for this to run smoothly. +B Apache will refuse %2F unless configured otherwise. +Make sure C is in your httpd.conf file in order +for this to run smoothly. -=cut - -=cut +=back +=head1 AUTHOR +Adam Jacob Eadam@stalecoffee.orgE, with lots of help from mst and jrockway +Marchex, Inc. paid me while I developed this module. (L) -=head1 MAINTAINER +=head1 CONTRIBUTORS -J. Shirley +Tomas Doran (t0m) Ebobtfish@bobtfish.netE -=head1 CONTRIBUTORS +John Goulah Christopher Laco -Luke Saunders +Daisuke Maki Edaisuke@endeworks.jpE -John Goulah +Hans Dieter Pearcey -Daisuke Maki +Dave Rolsky Eautarch@urth.orgE -=head1 AUTHOR +Luke Saunders + +Arthur Axel "fREW" Schmidt Efrioux@gmail.comE + +J. Shirley Ejshirley@gmail.comE -Adam Jacob , with lots of help from mst and jrockway +=head1 COPYRIGHT -Marchex, Inc. paid me while I developed this module. (http://www.marchex.com) +Copyright the above named AUTHOR and CONTRIBUTORS =head1 LICENSE