1 package Catalyst::Action::Deserialize::Data::Serializer;
6 use base 'Catalyst::Action';
11 my ( $controller, $c, $serializer ) = @_;
20 $c->log->debug("Could not load $serializer, refusing to serialize: $@")
24 my $body = $c->request->body;
27 if ( -f $c->request->body ) {
28 open( BODY, "<", $c->request->body );
29 while ( my $line = <BODY> ) {
34 my $dso = Data::Serializer->new( serializer => $serializer );
37 $rdata = $dso->raw_deserialize($rbody);
42 $c->request->data($rdata);
45 'I would have deserialized, but there was nothing in the body!')