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.pm;h=74e3af3b4e4fa8d6ed19f092600339f05e0b56d6;hp=2c231515f06a9e46fda19b6ed57e988c5489384a;hb=3bb36dcaabf34fef5c15b1bb74c5eb198a7f5168;hpb=68c266124de8e212143d4b94c55982f986f6945c diff --git a/lib/Catalyst/Action/Serialize.pm b/lib/Catalyst/Action/Serialize.pm index 2c23151..74e3af3 100644 --- a/lib/Catalyst/Action/Serialize.pm +++ b/lib/Catalyst/Action/Serialize.pm @@ -7,6 +7,15 @@ extends 'Catalyst::Action::SerializeBase'; use Module::Pluggable::Object; use MRO::Compat; +our $VERSION = '0.82'; +$VERSION = eval $VERSION; + +has _encoders => ( + is => 'ro', + isa => 'HashRef', + default => sub { {} }, +); + sub execute { my $self = shift; my ( $controller, $c ) = @_; @@ -33,12 +42,15 @@ sub execute { $c->log->debug( "Serializing with $sclass" . ( $sarg ? " [$sarg]" : '' ) ) if $c->debug; + $self->_encoders->{$sclass} ||= $sclass->new; + my $sobj = $self->_encoders->{$sclass}; + my $rc; eval { if ( defined($sarg) ) { - $rc = $sclass->execute( $controller, $c, $sarg ); + $rc = $sobj->execute( $controller, $c, $sarg ); } else { - $rc = $sclass->execute( $controller, $c ); + $rc = $sobj->execute( $controller, $c ); } }; if ($@) { @@ -50,7 +62,7 @@ sub execute { return 1; } -1; +__PACKAGE__->meta->make_immutable; =head1 NAME @@ -104,7 +116,7 @@ Takes a hashref, mapping Content-Types to a given serializer plugin. This is the 'fall-back' Content-Type if none of the requested or acceptable types is found in the L. It must be an entry in the L. -=head2 stash_key +=head2 stash_key Specifies the key of the stash entry holding the data that is to be serialized. So if the value is "rest", we will serialize the data under: @@ -124,7 +136,7 @@ perhaps for debugging. Daisuke Maki pointed out that early versions of this Action did not play well with others, or generally behave in a way that was very consistent -with the rest of Catalyst. +with the rest of Catalyst. =head1 SEE ALSO