X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Action-REST.git;a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FSerialize%2FData%2FSerializer.pm;fp=lib%2FCatalyst%2FAction%2FSerialize%2FData%2FSerializer.pm;h=0000000000000000000000000000000000000000;hp=545d43a30ece265fcfc1fe66a33df440dd4c7a19;hb=1bb213fc84712fcc13431f4e48b0d0ad74aa7dc3;hpb=f10c7e1c7eb3b4cb10401dbb86ca8db3dc38ced2 diff --git a/lib/Catalyst/Action/Serialize/Data/Serializer.pm b/lib/Catalyst/Action/Serialize/Data/Serializer.pm deleted file mode 100644 index 545d43a..0000000 --- a/lib/Catalyst/Action/Serialize/Data/Serializer.pm +++ /dev/null @@ -1,39 +0,0 @@ -package Catalyst::Action::Serialize::Data::Serializer; - -use Moose; -use namespace::autoclean; - -extends 'Catalyst::Action'; -use Data::Serializer; - -our $VERSION = '1.07'; -$VERSION = eval $VERSION; - -sub execute { - my $self = shift; - my ( $controller, $c, $serializer ) = @_; - - my $stash_key = ( - $controller->{'serialize'} ? - $controller->{'serialize'}->{'stash_key'} : - $controller->{'stash_key'} - ) || 'rest'; - my $sp = $serializer; - $sp =~ s/::/\//g; - $sp .= ".pm"; - eval { - require $sp - }; - if ($@) { - $c->log->info("Could not load $serializer, refusing to serialize: $@"); - return; - } - my $dso = Data::Serializer->new( serializer => $serializer ); - my $data = $dso->raw_serialize($c->stash->{$stash_key}); - $c->response->output( $data ); - return 1; -} - -__PACKAGE__->meta->make_immutable; - -1;