[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';
    $c->response->output( Dump( $c->stash->{$stash_key} ) );
    return 1;
};

1;
Commit	Line	Data
256c894f	1	#
	2	# Catlyst::Action::Serialize::YAML.pm
	3	# Created by: Adam Jacob, Marchex, <adam@marchex.com>
	4	# Created on: 10/12/2006 03:00:32 PM PDT
	5	#
	6	# $Id$
	7
	8	package Catalyst::Action::Serialize::YAML;
	9
	10	use strict;
	11	use warnings;
	12
	13	use base 'Catalyst::Action';
	14	use YAML::Syck;
	15
	16	sub execute {
	17	my $self = shift;
	18	my ( $controller, $c, $test ) = @_;
	19
	20	my $stash_key = $controller->serialize->{'stash_key'} \|\| 'rest';
256c894f	21	$c->response->output( Dump( $c->stash->{$stash_key} ) );
	22	return 1;
	23	};
	24
	25	1;