1 package Catalyst::ActionRole::Deserialize;
3 use Moose::Util qw(does_role);
4 use Catalyst::RequestRole::Deserialize;
5 use namespace::clean -except => 'meta';
7 requires 'deserialize';
9 around execute => sub {
11 my ($self, $controller, $c, $arg) = @_;
13 Catalyst::RequestRole::Deserialize->meta->apply($c->request)
14 unless does_role($c->request, 'Catalyst::RequestRole::Deserialize');
17 my $body = $c->request->body;
20 while (<$body>) { $content .= $_ }
32 $c->request->_set_data($data);
34 $c->debug && $c->log->debug(
35 'I would have deserialized, but there was nothing in the body!'