#
# REST.pm
-# Created by: Adam Jacob, Marchex, <adam@marchex.com>
+# Created by: Adam Jacob, Marchex, <adam@hjksolutions.com>
# Created on: 10/12/2006 03:00:32 PM PDT
#
# $Id$
use base 'Catalyst::Action';
use Class::Inspector;
+use Catalyst;
use Catalyst::Request::REST;
-use 5.8.1;
+use Catalyst::Controller::REST;
-our
- $VERSION = '0.41';
+BEGIN { require 5.008001; }
+
+our $VERSION = '0.64';
# 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
my $self = shift;
my $c = shift;
- my $controller = $c->component($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 } );