lib/Catalyst/Action/Serialize.pm

   1 #
   2 # Catlyst::Action::Serialize.pm
   3 # Created by: Adam Jacob, Marchex, <adam@marchex.com>
   4 #
   5 # $Id$
   6
   7 package Catalyst::Action::Serialize;
   8
   9 use strict;
  10 use warnings;
  11
  12 use base 'Catalyst::Action';
  13 use Module::Pluggable::Object;
  14
  15 __PACKAGE__->mk_accessors(qw(plugins));
  16
  17 sub execute {
  18     my $self = shift;
  19     my ( $controller, $c ) = @_;
  20
  21     return 1 if $c->req->method eq 'HEAD';
  22     return 1 if length( $c->response->body );
  23     return 1 if scalar @{ $c->error };
  24     return 1 if $c->response->status =~ /^(?:204|3\d\d)$/;
  25
  26     # Load the Serialize Classes
  27     unless(defined($self->plugins)) {
  28         my $mpo = Module::Pluggable::Object->new(
  29             'require' => 1,
  30             'search_path' => [ 'Catalyst::Action::Serialize' ],
  31         );
  32         my @plugins = $mpo->plugins;
  33         $self->plugins(\@plugins);
  34     }
  35
  36     # Look up what serializer to use from content_type map
  37     #
  38     # If we don't find one, we use the default
  39     my $content_type = $c->request->content_type;
  40     my $sclass = 'Catalyst::Action::Serialize::';
  41     my $sarg;
  42     my $map = $controller->serialize->{'map'};
  43     if (exists($map->{$content_type})) {
  44         my $mc;
  45         if (ref($map->{$content_type}) eq "ARRAY") {
  46             $mc = $map->{$content_type}->[0];
  47             $sarg = $map->{$content_type}->[1];
  48         } else {
  49             $mc = $map->{$content_type};
  50         }
  51         $sclass .= $mc;
  52         if (! grep(/^$sclass$/, @{$self->plugins})) {
  53             die "Cannot find plugin $sclass for $content_type!";
  54         }
  55     } else {
  56         if (exists($controller->serialize->{'default'})) {
  57             $sclass .= $controller->serialize->{'default'};
  58         } else {
  59             die "I cannot find a default serializer!";
  60         }
  61     }
  62
  63     # Go ahead and serialize ourselves
  64     if (defined($sarg)) {
  65         $sclass->execute($controller, $c, $sarg);
  66     } else {
  67         $sclass->execute($controller, $c);
  68     }
  69
  70     if (! $c->response->content_type ) {
  71         $c->response->content_type($c->request->content_type);
  72     }
  73
  74     return 1;
  75 };
  76
  77 1;