2 # Catalyst::Action::Deserialize::Data::Serializer.pm
3 # Created by: Adam Jacob, Marchex, <adam@marchex.com>
4 # Created on: 10/12/2006 03:00:32 PM PDT
8 package Catalyst::Action::Deserialize::Data::Serializer;
13 use base 'Catalyst::Action';
18 my ( $controller, $c, $serializer ) = @_;
20 my $body = $c->request->body;
23 if (-f $c->request->body) {
24 open(BODY, "<", $c->request->body);
25 while (my $line = <BODY>) {
30 my $dso = Data::Serializer->new(serializer => $serializer);
31 my $rdata = $dso->raw_deserialize($rbody);
32 $c->request->data($rdata);
34 $c->log->debug('I would have deserialized, but there was nothing in the body!');