X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FSerialize.pm;h=be6dda5c29759b35c08f7a02b83054d8a97c3ca4;hb=05b98ffc56285f5b17e81156b227dfd2d03553da;hp=29ee60559b09b7f7c169205427e07a8d2a705588;hpb=e527bba30dcea5108b0fb77416fcb4e8ee1e5a38;p=catagits%2FCatalyst-Action-REST.git diff --git a/lib/Catalyst/Action/Serialize.pm b/lib/Catalyst/Action/Serialize.pm index 29ee605..be6dda5 100644 --- a/lib/Catalyst/Action/Serialize.pm +++ b/lib/Catalyst/Action/Serialize.pm @@ -7,7 +7,7 @@ extends 'Catalyst::Action::SerializeBase'; use Module::Pluggable::Object; use MRO::Compat; -our $VERSION = '0.87'; +our $VERSION = '1.06'; $VERSION = eval $VERSION; has _encoders => ( @@ -23,7 +23,7 @@ sub execute { $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)$/; @@ -54,9 +54,9 @@ sub execute { } }; if ($@) { - return $self->_serialize_bad_request( $c, $content_type, $@ ); + return $self->serialize_bad_request( $c, $content_type, $@ ); } elsif (!$rc) { - return $self->_unsupported_media_type( $c, $content_type ); + return $self->unsupported_media_type( $c, $content_type ); } return 1; @@ -64,6 +64,8 @@ sub execute { __PACKAGE__->meta->make_immutable; +1; + =head1 NAME Catalyst::Action::Serialize - Serialize Data in a Response @@ -138,6 +140,13 @@ 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. +=head1 CUSTOM ERRORS + +For building custom error responses when serialization fails, you can create +an ActionRole (and use L to apply it to the +C action) which overrides C and/or C<_serialize_bad_request> +methods. + =head1 SEE ALSO You likely want to look at L, which implements