--- ../Catalyst-Action-REST-0.71/lib/Catalyst/Action/Serialize.pm 2009-03-28 15:35:09.000000000 +0000 +++ ./lib/Catalyst/Action/Serialize.pm 2009-04-28 16:46:22.000000000 +0100 @@ -12,12 +12,15 @@ use base 'Catalyst::Action::SerializeBase'; use Module::Pluggable::Object; +use MRO::Compat; +Class::C3::initialize(); + sub execute { my $self = shift; my ( $controller, $c ) = @_; - $self->NEXT::execute(@_); - + $self->maybe::next::method(@_); + return 1 if $c->req->method eq 'HEAD'; return 1 if length( $c->response->body ); return 1 if scalar @{ $c->error }; --- ../Catalyst-Action-REST-0.71/lib/Catalyst/Action/Deserialize.pm 2009-03-25 05:11:49.000000000 +0000 +++ ./lib/Catalyst/Action/Deserialize.pm 2009-04-28 16:46:28.000000000 +0100 @@ -12,6 +12,9 @@ use base 'Catalyst::Action::SerializeBase'; use Module::Pluggable::Object; +use MRO::Compat; +Class::C3::initialize(); + __PACKAGE__->mk_accessors(qw(plugins)); sub execute { @@ -38,7 +41,7 @@ } } - $self->NEXT::execute(@_); + $self->maybe::next::method(@_); return 1; }