X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FREST.pm;h=f8621da07cdde3a6ef84f9ffcdcb2936b114a418;hb=fec6d454787f6a7c23d1b6a7151a009a3ba0907b;hp=23b91ed909c19977a9d497caa0ff512fd764360a;hpb=9a76221ea1453d244e65429d3e10b5bde42d7733;p=catagits%2FCatalyst-Action-REST.git diff --git a/lib/Catalyst/Action/REST.pm b/lib/Catalyst/Action/REST.pm index 23b91ed..f8621da 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,17 +12,19 @@ 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.40'; +BEGIN { require 5.008001; } + +our $VERSION = '0.67'; # 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'); + unless Catalyst->request_class->isa('Catalyst::Request::REST'); =head1 NAME @@ -86,7 +88,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 } ); @@ -153,16 +155,26 @@ a sensible set of defaults for a controller doing REST. L, L -=head1 AUTHOR +=head1 MAINTAINER -Adam Jacob , with lots of help from mst and jrockway +J. Shirley -Marchex, Inc. paid me while I developed this module. (http://www.marchex.com) +=head1 CONTRIBUTORS + +Christopher Laco + +Luke Saunders -=head1 CONTRIBUTERS +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.