X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FREST.pm;h=368e8695dc4ee3e8f7f001dfeb7c51890174e199;hb=295fe4d5174e7e34fc1a4999981f29e96bd9709a;hp=6382c5d335b889111367f49302e3fcb912d0155e;hpb=65987ff6713d195c5bab155a6e07dae2b29cdc69;p=catagits%2FCatalyst-Action-Serialize-Data-Serializer.git diff --git a/lib/Catalyst/Action/REST.pm b/lib/Catalyst/Action/REST.pm index 6382c5d..368e869 100644 --- a/lib/Catalyst/Action/REST.pm +++ b/lib/Catalyst/Action/REST.pm @@ -85,9 +85,18 @@ sub dispatch { my $self = shift; my $c = shift; - my $controller = $c->component( $self->class ); my $rest_method = $self->name . "_" . uc( $c->request->method ); + return $self->_dispatch_rest_method( $c, $rest_method ); +} + +sub _dispatch_rest_method { + my $self = shift; + my $c = shift; + my $rest_method = shift; + + my $controller = $c->component( $self->class ); + my ($code, $name); # Common case, for foo_GET etc