use Module::Pluggable::Object;
use MRO::Compat;
-our $VERSION = '0.81';
+our $VERSION = '0.91';
$VERSION = eval $VERSION;
+has _encoders => (
+ is => 'ro',
+ isa => 'HashRef',
+ default => sub { {} },
+);
+
sub execute {
my $self = shift;
my ( $controller, $c ) = @_;
$self->maybe::next::method(@_);
return 1 if $c->req->method eq 'HEAD';
- return 1 if length( $c->response->body );
+ return 1 if $c->response->has_body;
return 1 if scalar @{ $c->error };
- return 1 if $c->response->status =~ /^(?:204|3\d\d)$/;
+ return 1 if $c->response->status =~ /^(?:204)$/;
my ( $sclass, $sarg, $content_type ) =
$self->_load_content_plugins( "Catalyst::Action::Serialize",
$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 ($@) {
return 1;
}
+__PACKAGE__->meta->make_immutable;
+
1;
=head1 NAME
This is the 'fall-back' Content-Type if none of the requested or acceptable
types is found in the L</map>. It must be an entry in the L</map>.
-=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:
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