X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FREST.pm;h=b9e84cfdf28642e6ed0c21087d4fda77820a9b68;hb=665a446debcdb5bc02aae2034ad4172a7899e054;hp=9005eeb4ce75897f38c4c8a966635481d0231b95;hpb=2224bad1aeb7ddf00a41f3c00c55583830230182;p=catagits%2FCatalyst-Action-REST.git diff --git a/lib/Catalyst/Action/REST.pm b/lib/Catalyst/Action/REST.pm index 9005eeb..b9e84cf 100644 --- a/lib/Catalyst/Action/REST.pm +++ b/lib/Catalyst/Action/REST.pm @@ -1,6 +1,6 @@ # # REST.pm -# Created by: Adam Jacob, Marchex, +# Created by: Adam Jacob, Marchex, # Created on: 10/12/2006 03:00:32 PM PDT # # $Id$ @@ -12,10 +12,20 @@ use warnings; use base 'Catalyst::Action'; use Class::Inspector; -use 5.8.1; +use Catalyst; +use Catalyst::Request::REST; +use Catalyst::Controller::REST; -our -$VERSION = '0.31'; +BEGIN { require 5.008001; } + +our $VERSION = '0.71'; + +sub new { + my $class = shift; + my $config = shift; + Catalyst::Request::REST->_insert_self_into( $config->{class} ); + return $class->SUPER::new($config, @_); +} =head1 NAME @@ -61,6 +71,9 @@ 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. + =head1 METHODS =over 4 @@ -76,7 +89,7 @@ sub dispatch { my $self = shift; my $c = shift; - my $controller = $self->class; + my $controller = $c->component( $self->class ); my $method = $self->name . "_" . uc( $c->request->method ); if ( $controller->can($method) ) { $c->execute( $self->class, $self, @{ $c->req->args } ); @@ -143,16 +156,46 @@ a sensible set of defaults for a controller doing REST. L, L -=head1 AUTHOR +=head1 TROUBLESHOOTING -Adam Jacob , with lots of help from mst and jrockway +=over 4 -Marchex, Inc. paid me while I developed this module. (http://www.marchex.com) +=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). + +**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. + +=cut + +=cut -=head1 CONTRIBUTERS + + + +=head1 MAINTAINER + +J. Shirley + +=head1 CONTRIBUTORS + +Christopher Laco + +Luke Saunders + +John Goulah Daisuke Maki +=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) + =head1 LICENSE You may distribute this code under the same terms as Perl itself.