lib/Catalyst/Action/Deserialize.pm

   1 #
   2 # Catlyst::Action::Deserialize
   3 # Created by: Adam Jacob, Marchex, <adam@marchex.com>
   4 #
   5 # $Id$
   6
   7 package Catalyst::Action::Deserialize;
   8
   9 use strict;
  10 use warnings;
  11
  12 use base 'Catalyst::Action';
  13 use Module::Pluggable::Object;
  14 use Catalyst::Request::REST;
  15
  16 __PACKAGE__->mk_accessors(qw(plugins));
  17
  18 sub execute {
  19     my $self = shift;
  20     my ( $controller, $c, $test ) = @_;
  21
  22     my $nreq = bless($c->request, 'Catalyst::Request::REST');
  23     $c->request($nreq);
  24
  25     unless(defined($self->plugins)) {
  26         my $mpo = Module::Pluggable::Object->new(
  27             'require' => 1,
  28             'search_path' => [ 'Catalyst::Action::Deserialize' ],
  29         );
  30         my @plugins = $mpo->plugins;
  31         $self->plugins(\@plugins);
  32     }
  33     my $content_type = $c->request->content_type;
  34     my $sclass = 'Catalyst::Action::Deserialize::';
  35     my $sarg;
  36     my $map = $controller->serialize->{'map'};
  37     if (exists($map->{$content_type})) {
  38         my $mc;
  39         if (ref($map->{$content_type}) eq "ARRAY") {
  40             $mc = $map->{$content_type}->[0];
  41             $sarg = $map->{$content_type}->[1];
  42         } else {
  43             $mc = $map->{$content_type};
  44         }
  45         $sclass .= $mc;
  46         if (! grep(/^$sclass$/, @{$self->plugins})) {
  47             die "Cannot find plugin $sclass for $content_type!";
  48         }
  49     } else {
  50         if (exists($controller->serialize->{'default'})) {
  51             $sclass .= $controller->serialize->{'default'};
  52         } else {
  53             die "I cannot find a default serializer!";
  54         }
  55     }
  56
  57     my @demethods = qw(POST PUT OPTIONS);
  58     my $method = $c->request->method;
  59     if (grep /^$method$/, @demethods) {
  60         if (defined($sarg)) {
  61             $sclass->execute($controller, $c, $sarg);
  62         } else {
  63             $sclass->execute($controller, $c);
  64         }
  65         $self->NEXT::execute( @_, );
  66     } else {
  67         $self->NEXT::execute( @_ );
  68     }
  69 };
  70
  71 1;