requires('URI::Find' => undef);
requires('MRO::Compat' => '0.10');
-test_requires 'Moose';
+requires 'Moose';
+requires 'namespace::autoclean';
feature 'JSON (application/json) support',
-default => 0,
package Catalyst::Action::Deserialize;
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
-use base 'Catalyst::Action::SerializeBase';
+extends 'Catalyst::Action::SerializeBase';
use Module::Pluggable::Object;
use MRO::Compat;
package Catalyst::Action::Deserialize::Data::Serializer;
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
-use base 'Catalyst::Action';
+extends 'Catalyst::Action';
use Data::Serializer;
sub execute {
package Catalyst::Action::Deserialize::JSON;
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
-use base 'Catalyst::Action';
+extends 'Catalyst::Action';
use JSON qw( decode_json );
sub execute {
package Catalyst::Action::Deserialize::View;
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
-use base 'Catalyst::Action';
+extends 'Catalyst::Action';
sub execute {
return 1;
package Catalyst::Action::Deserialize::XML::Simple;
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
-use base 'Catalyst::Action';
+extends 'Catalyst::Action';
sub execute {
my $self = shift;
package Catalyst::Action::Deserialize::YAML;
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
-use base 'Catalyst::Action';
+extends 'Catalyst::Action';
use YAML::Syck;
sub execute {
package Catalyst::Action::REST;
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
-use base 'Catalyst::Action';
+extends 'Catalyst::Action';
use Class::Inspector;
use Catalyst::Request::REST;
use Catalyst::Controller::REST;
package Catalyst::Action::Serialize;
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
-use base 'Catalyst::Action::SerializeBase';
+extends 'Catalyst::Action::SerializeBase';
use Module::Pluggable::Object;
use MRO::Compat;
package Catalyst::Action::Serialize::Data::Serializer;
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
-use base 'Catalyst::Action';
+extends 'Catalyst::Action';
use Data::Serializer;
sub execute {
package Catalyst::Action::Serialize::JSON;
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
-use base 'Catalyst::Action';
+extends 'Catalyst::Action';
use JSON qw(encode_json);
sub execute {
package Catalyst::Action::Serialize::JSON::XS;
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
-use base 'Catalyst::Action::Serialize::JSON';
+extends 'Catalyst::Action::Serialize::JSON';
use JSON::XS qw(encode_json);
sub serialize {
package Catalyst::Action::Serialize::View;
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
-use base 'Catalyst::Action';
+extends 'Catalyst::Action';
sub execute {
my $self = shift;
package Catalyst::Action::Serialize::XML::Simple;
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
-use base 'Catalyst::Action';
+extends 'Catalyst::Action';
sub execute {
my $self = shift;
package Catalyst::Action::Serialize::YAML;
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
-use base 'Catalyst::Action';
+extends 'Catalyst::Action';
use YAML::Syck;
sub execute {
package Catalyst::Action::Serialize::YAML::HTML;
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
-use base 'Catalyst::Action';
+extends 'Catalyst::Action';
use YAML::Syck;
use URI::Find;
package Catalyst::Action::SerializeBase;
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
-use base 'Catalyst::Action';
+extends 'Catalyst::Action';
use Module::Pluggable::Object;
use Catalyst::Request::REST;
use Catalyst::Utils ();
package Catalyst::Controller::REST;
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
our $VERSION = '0.79';
$VERSION = eval $VERSION;
=cut
-use base 'Catalyst::Controller';
+BEGIN { extends 'Catalyst::Controller' }
use Params::Validate qw(SCALAR OBJECT);
__PACKAGE__->mk_accessors(qw(serialize));
package Catalyst::Request::REST;
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
use Scalar::Util qw/blessed/;
-use base qw/Catalyst::Request Class::Accessor::Fast/;
+extends qw/Catalyst::Request Class::Accessor::Fast/;
use Catalyst::Utils;
use HTTP::Headers::Util qw(split_header_words);
package Catalyst::Action::Serializer::Broken;
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
use Bilbo::Baggins;
package Catalyst::Action::Serializer::Broken;
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
use Bilbo::Baggins;
package Test::Catalyst::Action::REST;
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
use Catalyst::Runtime '5.70';
package Test::Catalyst::Action::REST::Controller::Actions;
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
-use base qw/Catalyst::Controller::REST/;
+BEGIN { extends qw/Catalyst::Controller::REST/ }
__PACKAGE__->_action_class('Test::Action::Class');
package Test::Catalyst::Action::REST::Controller::Deserialize;
+use Moose;
+use namespace::autoclean;
-use base 'Catalyst::Controller';
+BEGIN { extends 'Catalyst::Controller' }
__PACKAGE__->config(
'stash_key' => 'rest',
package Test::Catalyst::Action::REST::Controller::REST;
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
-use base 'Catalyst::Controller::REST';
+BEGIN { extends 'Catalyst::Controller::REST' }
sub test : Local {
my ( $self, $c ) = @_;
package Test::Catalyst::Action::REST::Controller::Root;
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
-use base qw/Catalyst::Controller::REST/;
+BEGIN { extends qw/Catalyst::Controller::REST/ }
__PACKAGE__->config( namespace => '' );
package Test::Catalyst::Action::REST::Controller::Serialize;
-use strict;
-use warnings;
-use base 'Catalyst::Controller';
+use Moose;
+use namespace::autoclean;
+
+BEGIN { extends 'Catalyst::Controller' }
__PACKAGE__->config(
'default' => 'text/x-yaml',
package Test::Rest;
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
use LWP::UserAgent;
use Params::Validate qw(:all);
use lib ("$FindBin::Bin/../lib");
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
use Catalyst::Runtime '5.70';
package Test::Serialize::Controller::REST;
-use warnings;
-use strict;
+use namespace::autoclean;
+use Moose;
-use base qw/Catalyst::Controller::REST/;
+BEGIN { extends qw/Catalyst::Controller::REST/ };
__PACKAGE__->config(
'namespace' => '',
package Test::Serialize::View::Simple;
+use Moose;
+use namespace::autoclean;
-use base qw/Catalyst::View/;
+extends qw/Catalyst::View/;
sub process {
my ($self, $c) = @_;