package Test::Catalyst::Action::Serialize; use FindBin; use lib ("$FindBin::Bin/../lib"); use strict; use warnings; use Catalyst::Runtime '5.70'; use Catalyst; __PACKAGE__->config( name => 'Test::Catalyst::Action::Serialize', serialize => { 'stash_key' => 'rest', 'map' => { 'text/x-yaml' => 'YAML', 'text/x-data-dumper' => [ 'Data::Serializer', 'Data::Dumper' ], 'text/broken' => 'Broken', }, } ); __PACKAGE__->setup; sub test :Local :ActionClass('Serialize') { my ( $self, $c ) = @_; $c->stash->{'rest'} = { lou => 'is my cat', }; } sub test_second :Local :ActionClass('Serialize') { my ( $self, $c ) = @_; $c->stash->{'rest'} = { lou => 'is my cat', }; } package main; use strict; use warnings; use Test::More tests => 3; use Data::Serializer; use FindBin; use Data::Dump qw(dump); use lib ("$FindBin::Bin/lib", "$FindBin::Bin/../lib", "$FindBin::Bin/broken"); use Test::Rest; # Should use Data::Dumper, via YAML my $t = Test::Rest->new('content_type' => 'text/x-yaml'); use_ok 'Catalyst::Test', 'Test::Catalyst::Action::Serialize'; my $req = $t->get(url => '/test'); $req->remove_header('Content-Type'); $req->header('Accept', 'text/x-yaml'); my $res = request($req); ok( $res->is_success, 'GET the serialized request succeeded' ); my $data = <content, $data, "Request returned proper data"); 1;