r67926 - in /branches/upstream/libcatalyst-action-rest-perl/current: ./ lib/Catalyst/Action/ lib/Catalyst/Action/Deserialize/ lib/Catalyst/Action/Deserialize/Data/ lib/Catalyst/Action/Deserialize/XML/ lib/Catalyst/Action/Serialize/ lib/Catalyst/Action/Serialize/Data/ lib/Catalyst/Action/Serialize/JSON/ lib/Catalyst/Action/Serialize/XML/ lib/Catalyst/Action/Serialize/YAML/ lib/Catalyst/Controller/ lib/Catalyst/Request/ lib/Catalyst/Request/REST/ lib/Catalyst/TraitFor/Request/ lib/Catalyst/TraitFor/Request/REST/ t/ t/lib/Test/Catalyst/Action/ t/lib/Test/Catalyst/Action/REST/Controller/ xt/
ansgar at users.alioth.debian.org
ansgar at users.alioth.debian.org
Thu Jan 27 13:34:42 UTC 2011
Author: ansgar
Date: Thu Jan 27 13:34:22 2011
New Revision: 67926
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=67926
Log:
[svn-upgrade] new version libcatalyst-action-rest-perl (0.88)
Modified:
branches/upstream/libcatalyst-action-rest-perl/current/Changes
branches/upstream/libcatalyst-action-rest-perl/current/META.yml
branches/upstream/libcatalyst-action-rest-perl/current/Makefile.PL
branches/upstream/libcatalyst-action-rest-perl/current/README
branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize.pm
branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize/Data/Serializer.pm
branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize/JSON.pm
branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize/View.pm
branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize/XML/Simple.pm
branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize/YAML.pm
branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/REST.pm
branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize.pm
branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/Data/Serializer.pm
branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/JSON.pm
branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/JSON/XS.pm
branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/JSONP.pm
branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/View.pm
branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/XML/Simple.pm
branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/YAML.pm
branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/YAML/HTML.pm
branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/SerializeBase.pm
branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Controller/REST.pm
branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Request/REST.pm
branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Request/REST/ForBrowsers.pm
branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/TraitFor/Request/REST.pm
branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/TraitFor/Request/REST/ForBrowsers.pm
branches/upstream/libcatalyst-action-rest-perl/current/t/catalyst-action-serialize.t
branches/upstream/libcatalyst-action-rest-perl/current/t/lib/Test/Catalyst/Action/REST.pm
branches/upstream/libcatalyst-action-rest-perl/current/t/lib/Test/Catalyst/Action/REST/Controller/Serialize.pm
branches/upstream/libcatalyst-action-rest-perl/current/xt/pod-spell.t
Modified: branches/upstream/libcatalyst-action-rest-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/Changes?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/Changes (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/Changes Thu Jan 27 13:34:22 2011
@@ -1,3 +1,14 @@
+Tue 11 Jan 2010 23:07:00 GMT - Release 0.88
+ Fix documentation for overriding Serialize and Deserialize actions
+ in Catalyst::Controller::REST.
+
+ Avoid warning with empty response bodies and new Catalyst version
+ (>= 5.80030)
+
+ Returning a body of '' is now possible - Catalyst::Action::Serialize
+ acts like Catalyst::Action::RenderView (>= 0.16) by using the has_body
+ predicate in Catalyst::Response (>= 5.80030)
+
Wed 3 Nov 2010 19:46:00 GMT - Release 0.87
Fix Request class role when used with new Moose and other request
Modified: branches/upstream/libcatalyst-action-rest-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/META.yml?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/META.yml (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/META.yml Thu Jan 27 13:34:22 2011
@@ -19,7 +19,7 @@
- t
- xt
requires:
- Catalyst::Runtime: 5.80
+ Catalyst::Runtime: 5.80030
Class::Inspector: 1.13
Config::General: 0
Data::Serializer: 0.36
@@ -41,4 +41,4 @@
resources:
license: http://dev.perl.org/licenses/
repository: git://git.shadowcat.co.uk/catagits/Catalyst-Action-REST.git
-version: 0.87
+version: 0.88
Modified: branches/upstream/libcatalyst-action-rest-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/Makefile.PL?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/Makefile.PL (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/Makefile.PL Thu Jan 27 13:34:22 2011
@@ -11,7 +11,7 @@
requires 'Moose' => '1.03';
requires 'namespace::autoclean';
-requires('Catalyst::Runtime' => '5.80');
+requires('Catalyst::Runtime' => '5.80030');
requires('Params::Validate' => '0.76');
requires('YAML::Syck' => '0.67');
requires('Module::Pluggable::Object' => undef);
@@ -38,7 +38,7 @@
author_requires 'JSON' => '2.12';
author_requires 'JSON::XS' => '2.2222';
-feature 'Data::Taxi (text/x-data-taxi) support',
+feature 'Data::Taxi (text/x-data-taxi) support (deprecated)',
-default => 0,
'Data::Taxi' => undef;
Modified: branches/upstream/libcatalyst-action-rest-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/README?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/README (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/README Thu Jan 27 13:34:22 2011
@@ -55,9 +55,10 @@
a sensible set of defaults for a controller doing REST.
This class automatically adds the Catalyst::TraitFor::Request::REST role
- to your request class. If you're writing a webapp which provides RESTful
- responses and still needs to accommodate web browsers, you may prefer to
- use Catalyst::TraitFor::Request::REST::ForBrowsers instead.
+ to your request class. If you're writing a web application which
+ provides RESTful responses and still needs to accommodate web browsers,
+ you may prefer to use Catalyst::TraitFor::Request::REST::ForBrowsers
+ instead.
Catalyst::Action::Serialize, Catalyst::Action::Deserialize
Modified: branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize.pm?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize.pm (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize.pm Thu Jan 27 13:34:22 2011
@@ -7,7 +7,7 @@
use Module::Pluggable::Object;
use MRO::Compat;
-our $VERSION = '0.87';
+our $VERSION = '0.88';
$VERSION = eval $VERSION;
has plugins => ( is => 'rw' );
Modified: branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize/Data/Serializer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize/Data/Serializer.pm?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize/Data/Serializer.pm (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize/Data/Serializer.pm Thu Jan 27 13:34:22 2011
@@ -9,7 +9,7 @@
my $compartment = Safe->new;
$compartment->permit_only( qw(padany null lineseq const pushmark list anonhash anonlist refgen leaveeval undef) );
-our $VERSION = '0.87';
+our $VERSION = '0.88';
$VERSION = eval $VERSION;
sub execute {
Modified: branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize/JSON.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize/JSON.pm?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize/JSON.pm (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize/JSON.pm Thu Jan 27 13:34:22 2011
@@ -6,7 +6,7 @@
extends 'Catalyst::Action';
use JSON;
-our $VERSION = '0.87';
+our $VERSION = '0.88';
$VERSION = eval $VERSION;
sub execute {
Modified: branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize/View.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize/View.pm?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize/View.pm (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize/View.pm Thu Jan 27 13:34:22 2011
@@ -5,7 +5,7 @@
extends 'Catalyst::Action';
-our $VERSION = '0.87';
+our $VERSION = '0.88';
$VERSION = eval $VERSION;
sub execute {
Modified: branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize/XML/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize/XML/Simple.pm?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize/XML/Simple.pm (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize/XML/Simple.pm Thu Jan 27 13:34:22 2011
@@ -5,7 +5,7 @@
extends 'Catalyst::Action';
-our $VERSION = '0.87';
+our $VERSION = '0.88';
$VERSION = eval $VERSION;
sub execute {
Modified: branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize/YAML.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize/YAML.pm?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize/YAML.pm (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Deserialize/YAML.pm Thu Jan 27 13:34:22 2011
@@ -6,7 +6,7 @@
extends 'Catalyst::Action';
use YAML::Syck;
-our $VERSION = '0.87';
+our $VERSION = '0.88';
$VERSION = eval $VERSION;
sub execute {
Modified: branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/REST.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/REST.pm?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/REST.pm (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/REST.pm Thu Jan 27 13:34:22 2011
@@ -10,7 +10,7 @@
BEGIN { require 5.008001; }
-our $VERSION = '0.87';
+our $VERSION = '0.88';
$VERSION = eval $VERSION;
sub new {
@@ -161,7 +161,7 @@
sensible set of defaults for a controller doing REST.
This class automatically adds the L<Catalyst::TraitFor::Request::REST> role to
-your request class. If you're writing a webapp which provides RESTful
+your request class. If you're writing a web application which provides RESTful
responses and still needs to accommodate web browsers, you may prefer to use
L<Catalyst::TraitFor::Request::REST::ForBrowsers> instead.
Modified: branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize.pm?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize.pm (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize.pm Thu Jan 27 13:34:22 2011
@@ -7,7 +7,7 @@
use Module::Pluggable::Object;
use MRO::Compat;
-our $VERSION = '0.87';
+our $VERSION = '0.88';
$VERSION = eval $VERSION;
has _encoders => (
@@ -23,7 +23,7 @@
$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)$/;
Modified: branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/Data/Serializer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/Data/Serializer.pm?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/Data/Serializer.pm (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/Data/Serializer.pm Thu Jan 27 13:34:22 2011
@@ -6,7 +6,7 @@
extends 'Catalyst::Action';
use Data::Serializer;
-our $VERSION = '0.87';
+our $VERSION = '0.88';
$VERSION = eval $VERSION;
sub execute {
Modified: branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/JSON.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/JSON.pm?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/JSON.pm (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/JSON.pm Thu Jan 27 13:34:22 2011
@@ -6,7 +6,7 @@
extends 'Catalyst::Action';
use JSON ();
-our $VERSION = '0.87';
+our $VERSION = '0.88';
$VERSION = eval $VERSION;
has encoder => (
Modified: branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/JSON/XS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/JSON/XS.pm?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/JSON/XS.pm (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/JSON/XS.pm Thu Jan 27 13:34:22 2011
@@ -6,7 +6,7 @@
extends 'Catalyst::Action::Serialize::JSON';
use JSON::XS ();
-our $VERSION = '0.87';
+our $VERSION = '0.88';
$VERSION = eval $VERSION;
sub _build_encoder {
Modified: branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/JSONP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/JSONP.pm?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/JSONP.pm (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/JSONP.pm Thu Jan 27 13:34:22 2011
@@ -4,7 +4,7 @@
extends 'Catalyst::Action::Serialize::JSON';
-our $VERSION = '0.87';
+our $VERSION = '0.88';
$VERSION = eval $VERSION;
after 'execute' => sub {
Modified: branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/View.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/View.pm?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/View.pm (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/View.pm Thu Jan 27 13:34:22 2011
@@ -4,7 +4,7 @@
extends 'Catalyst::Action';
-our $VERSION = '0.87';
+our $VERSION = '0.88';
$VERSION = eval $VERSION;
sub execute {
Modified: branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/XML/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/XML/Simple.pm?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/XML/Simple.pm (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/XML/Simple.pm Thu Jan 27 13:34:22 2011
@@ -5,7 +5,7 @@
extends 'Catalyst::Action';
-our $VERSION = '0.87';
+our $VERSION = '0.88';
$VERSION = eval $VERSION;
sub execute {
Modified: branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/YAML.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/YAML.pm?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/YAML.pm (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/YAML.pm Thu Jan 27 13:34:22 2011
@@ -6,7 +6,7 @@
extends 'Catalyst::Action';
use YAML::Syck;
-our $VERSION = '0.87';
+our $VERSION = '0.88';
$VERSION = eval $VERSION;
sub execute {
Modified: branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/YAML/HTML.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/YAML/HTML.pm?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/YAML/HTML.pm (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/Serialize/YAML/HTML.pm Thu Jan 27 13:34:22 2011
@@ -7,7 +7,7 @@
use YAML::Syck;
use URI::Find;
-our $VERSION = '0.87';
+our $VERSION = '0.88';
$VERSION = eval $VERSION;
sub execute {
Modified: branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/SerializeBase.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/SerializeBase.pm?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/SerializeBase.pm (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Action/SerializeBase.pm Thu Jan 27 13:34:22 2011
@@ -8,7 +8,7 @@
use Catalyst::Request::REST;
use Catalyst::Utils ();
-our $VERSION = '0.87';
+our $VERSION = '0.88';
$VERSION = eval $VERSION;
after BUILDARGS => sub {
Modified: branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Controller/REST.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Controller/REST.pm?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Controller/REST.pm (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Controller/REST.pm Thu Jan 27 13:34:22 2011
@@ -2,7 +2,7 @@
use Moose;
use namespace::autoclean;
-our $VERSION = '0.87';
+our $VERSION = '0.88';
$VERSION = eval $VERSION;
=head1 NAME
@@ -565,27 +565,32 @@
The C<begin> method uses L<Catalyst::Action::Deserialize>. The C<end>
method uses L<Catalyst::Action::Serialize>. If you want to override
either behavior, simply implement your own C<begin> and C<end> actions
-and use MRO::Compat:
+and forward to another action with the Serialize and/or Deserialize
+action classes:
package Foo::Controller::Monkey;
use Moose;
use namespace::autoclean;
-
+
BEGIN { extends 'Catalyst::Controller::REST' }
- sub begin :Private {
+ sub begin : Private {
my ($self, $c) = @_;
... do things before Deserializing ...
- $self->maybe::next::method($c);
+ $c->forward('deserialize');
... do things after Deserializing ...
}
+
+ sub deserialize : ActionClass('Deserialize') {}
sub end :Private {
my ($self, $c) = @_;
... do things before Serializing ...
- $self->maybe::next::method($c);
+ $c->forward('serialize');
... do things after Serializing ...
}
+
+ sub serialize : ActionClass('Serialize') {}
=back
Modified: branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Request/REST.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Request/REST.pm?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Request/REST.pm (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Request/REST.pm Thu Jan 27 13:34:22 2011
@@ -7,7 +7,7 @@
extends 'Catalyst::Request';
with 'Catalyst::TraitFor::Request::REST';
-our $VERSION = '0.87';
+our $VERSION = '0.88';
$VERSION = eval $VERSION;
# Please don't take this as a recommended way to do things.
Modified: branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Request/REST/ForBrowsers.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Request/REST/ForBrowsers.pm?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Request/REST/ForBrowsers.pm (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/Request/REST/ForBrowsers.pm Thu Jan 27 13:34:22 2011
@@ -3,7 +3,7 @@
use namespace::autoclean;
-our $VERSION = '0.87';
+our $VERSION = '0.88';
$VERSION = eval $VERSION;
extends 'Catalyst::Request::REST';
Modified: branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/TraitFor/Request/REST.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/TraitFor/Request/REST.pm?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/TraitFor/Request/REST.pm (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/TraitFor/Request/REST.pm Thu Jan 27 13:34:22 2011
@@ -3,7 +3,7 @@
use HTTP::Headers::Util qw(split_header_words);
use namespace::autoclean;
-our $VERSION = '0.87';
+our $VERSION = '0.88';
$VERSION = eval $VERSION;
has [qw/ data accept_only /] => ( is => 'rw' );
Modified: branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/TraitFor/Request/REST/ForBrowsers.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/TraitFor/Request/REST/ForBrowsers.pm?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/TraitFor/Request/REST/ForBrowsers.pm (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/lib/Catalyst/TraitFor/Request/REST/ForBrowsers.pm Thu Jan 27 13:34:22 2011
@@ -4,7 +4,7 @@
with 'Catalyst::TraitFor::Request::REST';
-our $VERSION = '0.87';
+our $VERSION = '0.88';
$VERSION = eval $VERSION;
has _determined_real_method => (
Modified: branches/upstream/libcatalyst-action-rest-perl/current/t/catalyst-action-serialize.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/t/catalyst-action-serialize.t?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/t/catalyst-action-serialize.t (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/t/catalyst-action-serialize.t Thu Jan 27 13:34:22 2011
@@ -1,6 +1,6 @@
use strict;
use warnings;
-use Test::More tests => 9;
+use Test::More 0.88;
use Data::Serializer;
use FindBin;
@@ -35,4 +35,17 @@
ok( $res2->is_success, 'request succeeded (deprecated config)' );
is( $res2->content, "{'lou' => 'is my cat'}", "request returned proper data");
-1;
+$res = request($t->get(url => '/serialize/empty_serialized'));
+is $res->content, q[{'foo' => 'bar'}], 'normal case ok';
+ok $res->header('Content-Length'), 'set content-length when we serialize';
+
+$res = request($t->get(url => '/serialize/empty_not_serialized_undef'));
+is $res->content, '', "body explicitly set to undef results in '' content";
+ok !$res->header('Content-Length'), "body explicitly set to undef - no automatic content-length";
+
+$res = request($t->get(url => '/serialize/empty_not_serialized_blank'));
+is $res->content, '', "body explicitly set to '' results in '' content";
+ok !$res->header('Content-Length'), "body explicitly set to '' - no automatic content-length";
+
+done_testing;
+
Modified: branches/upstream/libcatalyst-action-rest-perl/current/t/lib/Test/Catalyst/Action/REST.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/t/lib/Test/Catalyst/Action/REST.pm?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/t/lib/Test/Catalyst/Action/REST.pm (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/t/lib/Test/Catalyst/Action/REST.pm Thu Jan 27 13:34:22 2011
@@ -17,6 +17,7 @@
},
);
__PACKAGE__->setup;
-__PACKAGE__->log( Test::Catalyst::Log->new );
+__PACKAGE__->log( Test::Catalyst::Log->new )
+ unless __PACKAGE__->debug;
1;
Modified: branches/upstream/libcatalyst-action-rest-perl/current/t/lib/Test/Catalyst/Action/REST/Controller/Serialize.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/t/lib/Test/Catalyst/Action/REST/Controller/Serialize.pm?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/t/lib/Test/Catalyst/Action/REST/Controller/Serialize.pm (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/t/lib/Test/Catalyst/Action/REST/Controller/Serialize.pm Thu Jan 27 13:34:22 2011
@@ -32,4 +32,26 @@
};
}
+# For testing saying 'here is an explicitly empty body, do not serialize'
+sub empty : Chained('/') PathPart('serialize') CaptureArgs(0) {
+ my ($self, $c) = @_;
+ $c->stash( rest => { foo => 'bar' } );
+}
+
+# Normal case
+sub empty_serialized :Chained('empty') Args(0) ActionClass('Serialize') {
+}
+
+# Undef body
+sub empty_not_serialized_undef :Chained('empty') Args(0) ActionClass('Serialize') {
+ my ($self, $c) = @_;
+ $c->res->body(undef);
+}
+
+# Blank body
+sub empty_not_serialized_blank :Chained('empty') Args(0) ActionClass('Serialize') {
+ my ($self, $c) = @_;
+ $c->res->body('');
+}
+
1;
Modified: branches/upstream/libcatalyst-action-rest-perl/current/xt/pod-spell.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/xt/pod-spell.t?rev=67926&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/xt/pod-spell.t (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/xt/pod-spell.t Thu Jan 27 13:34:22 2011
@@ -23,6 +23,8 @@
all_pod_files_spelling_ok();
__DATA__
+Wiki
+json
APIs
ActionClass
Daisuke
@@ -38,6 +40,7 @@
Maki
Marchex
Pearcey
+Rolsky
RESTful
RESTful
SERIALIZERS
More information about the Pkg-perl-cvs-commits
mailing list