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=7adc6b2d98c1249ed862007fe2682cbbd077df49;hp=aae87dac34ee9aba7de596c1c625e63ed458f7e9;hb=5cb5f6bb8bd7e95865e8e3eb238b482aa161aa0d;hpb=832e768d82da10ac48c61848e004fa571ea99bdd diff --git a/lib/Catalyst/Action/REST.pm b/lib/Catalyst/Action/REST.pm index aae87da..7adc6b2 100644 --- a/lib/Catalyst/Action/REST.pm +++ b/lib/Catalyst/Action/REST.pm @@ -12,18 +12,20 @@ use warnings; use base 'Catalyst::Action'; use Class::Inspector; -use Catalyst; use Catalyst::Request::REST; -use 5.8.1; +use Catalyst::Controller::REST; -our - $VERSION = '0.61'; +BEGIN { require 5.008001; } -# This is wrong in several ways. First, there's no guarantee that -# Catalyst.pm has not been subclassed. Two, there's no guarantee that -# the user isn't already using their request subclass. -Catalyst->request_class('Catalyst::Request::REST') - unless Catalyst->request_class->isa('Catalyst::Request::REST'); +our $VERSION = '0.78'; +$VERSION = eval $VERSION; + +sub new { + my $class = shift; + my $config = shift; + Catalyst::Request::REST->_insert_self_into( $config->{class} ); + return $class->next::method($config, @_); +} =head1 NAME @@ -35,25 +37,28 @@ Catalyst::Action::REST - Automated REST Method Dispatching ... do setup for HTTP method specific handlers ... } - sub foo_GET { + sub foo_GET { ... 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. -If a method is requested that is not implemented, this action will -return a status 405 (Method Not Found). It will populate the "Allow" header +If a method is requested that is not implemented, this action will +return a status 405 (Method Not Found). It will populate the "Allow" header with the list of implemented request methods. You can override this behavior by implementing a custom 405 handler like so: @@ -88,59 +93,74 @@ sub dispatch { my $c = shift; my $controller = $c->component( $self->class ); - my $method = $self->name . "_" . uc( $c->request->method ); - if ( $controller->can($method) ) { + my $rest_method = $self->name . "_" . uc( $c->request->method ); + + my ($code, $name); + + # Common case, for foo_GET etc + if ( $code = $controller->action_for($rest_method) ) { $c->execute( $self->class, $self, @{ $c->req->args } ); - return $controller->$method( $c, @{ $c->req->args } ); - } else { - if ( $c->request->method eq "OPTIONS" ) { - return $self->_return_options($c); - } else { - my $handle_ni = $self->name . "_not_implemented"; - if ( $controller->can($handle_ni) ) { - return $controller->$handle_ni( $c, @{ $c->req->args } ); - } else { - return $self->_return_not_implemented($c); - } - } + 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; } -} -sub _return_options { - my ( $self, $c ) = @_; + # Generic handling for foo_OPTIONS + if (!$code && $c->request->method eq "OPTIONS") { + $name = $rest_method; + $code = sub { $self->_return_options($self->name, @_) }; + } - my @allowed = $self->_get_allowed_methods($c); - $c->response->content_type('text/plain'); - $c->response->status(200); - $c->response->header( 'Allow' => \@allowed ); + # Otherwise, not implemented. + if (!$code) { + $name = $self->name . "_not_implemented"; + $code = $controller->can($name) # User method + # Generic not implemented + || sub { $self->_return_not_implemented($self->name, @_) }; + } + + # localise stuff so we can dispatch the action 'as normal, but get + # different stats shown, and different code run. + local $self->{code} = $code; + local $self->{reverse} = $name; + + $c->execute( $self->class, $self, @{ $c->req->args } ); } sub _get_allowed_methods { - my ( $self, $c ) = @_; - - my $controller = $self->class; - my $methods = Class::Inspector->methods($controller); + my ( $self, $controller, $c, $name ) = @_; + my $class = ref($controller) ? ref($controller) : $controller; + my $methods = Class::Inspector->methods($class); my @allowed; foreach my $method ( @{$methods} ) { - my $name = $self->name; if ( $method =~ /^$name\_(.+)$/ ) { push( @allowed, $1 ); } } return @allowed; +}; + +sub _return_options { + my ( $self, $method_name, $controller, $c) = @_; + 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 ); } sub _return_not_implemented { - my ( $self, $c ) = @_; + my ( $self, $method_name, $controller, $c ) = @_; - my @allowed = $self->_get_allowed_methods($c); + 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 ); $c->response->body( "Method " . $c->request->method . " not implemented for " - . $c->uri_for( $self->reverse ) ); + . $c->uri_for( $method_name ) ); } 1; @@ -154,16 +174,51 @@ a sensible set of defaults for a controller doing REST. L, L +=head1 TROUBLESHOOTING + +=over 4 + +=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 +accepted return formats. You can do this by setting it in your query string +thusly: C<< ?content-type=application%2Fjson (where %2F == / uri escaped). >> + +B Apache will refuse %2F unless configured otherise. +Make sure C<< AllowEncodedSlashes On >> is in your httpd.conf file in orde +for this to run smoothly. + +=back + =head1 AUTHOR Adam Jacob , with lots of help from mst and jrockway -Marchex, Inc. paid me while I developed this module. (http://www.marchex.com) +Marchex, Inc. paid me while I developed this module. (L) -=head1 CONTRIBUTERS +=head1 CONTRIBUTORS + +Arthur Axel "fREW" Schmidt + +Christopher Laco + +Luke Saunders + +John Goulah Daisuke Maki +J. Shirley + +Hans Dieter Pearcey + +Tomas Doran (t0m) + +=head1 COPYRIGHT + +Copyright the above named AUTHOR and CONTRIBUTORS + =head1 LICENSE You may distribute this code under the same terms as Perl itself.