Initial commit of Catalyst-Action-REST

[catagits/Catalyst-Action-REST.git] / lib / Catalyst / Action / Serialize / YAML.pm

#
# Catlyst::Action::Serialize::YAML.pm
# Created by: Adam Jacob, Marchex, <adam@marchex.com>
# Created on: 10/12/2006 03:00:32 PM PDT
#
# $Id$

package Catalyst::Action::Serialize::YAML;

use strict;
use warnings;

use base 'Catalyst::Action';
use YAML::Syck;

sub execute {
    my $self = shift;
    my ( $controller, $c, $test ) = @_;

    my $stash_key = $controller->serialize->{'stash_key'} || 'rest';
  
    if (! $c->response->content_type ) {
        $c->response->content_type($c->req->content_type);
    }
    return 1 if $c->req->method eq 'HEAD';
    return 1 if length( $c->response->body );
    return 1 if scalar @{ $c->error };
    return 1 if $c->response->status =~ /^(?:204|3\d\d)$/;

    $c->response->output( Dump( $c->stash->{$stash_key} ) );
    return 1;
};

1;