r52380 - 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/REST/Controller/ t/lib/Test/Serialize/Controller/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Tue Feb 9 15:45:18 UTC 2010
Author: jawnsy-guest
Date: Tue Feb 9 15:45:10 2010
New Revision: 52380
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=52380
Log:
[svn-upgrade] Integrating new upstream version, libcatalyst-action-rest-perl (0.83)
Added:
branches/upstream/libcatalyst-action-rest-perl/current/t/lib/Test/Catalyst/Action/REST/Controller/Override.pm
Modified:
branches/upstream/libcatalyst-action-rest-perl/current/Changes
branches/upstream/libcatalyst-action-rest-perl/current/MANIFEST
branches/upstream/libcatalyst-action-rest-perl/current/META.yml
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-accept.t
branches/upstream/libcatalyst-action-rest-perl/current/t/lib/Test/Serialize/Controller/REST.pm
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=52380&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/Changes (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/Changes Tue Feb 9 15:45:10 2010
@@ -1,3 +1,12 @@
+Mon 8 Feb 2010 22:17:12 GMT - Release 0.83
+ Make it possible to deserialize a request with a DELETE method. This probably
+ breaks 'strict' REST guidelines, but is useful for being able to delete multiple
+ resources from a single call by providing a batch delete method.
+
+ Remove JSONP from the list of default serializers (RT#54336)
+
+ Fix MANIFEST (RT#54408)
+
Thu 4 Feb 2010 22:31:57 GMT - Release 0.82
Integrated Catalyst::Request::REST::ForBrowsers as
Modified: branches/upstream/libcatalyst-action-rest-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/MANIFEST?rev=52380&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/MANIFEST (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/MANIFEST Tue Feb 9 15:45:10 2010
@@ -48,7 +48,6 @@
t/catalyst-action-serialize-query.t
t/catalyst-action-serialize.t
t/catalyst-controller-rest.t
-t/catalyst-request-rest.t
t/catalyst-traitfor-request-rest-forbrowsers.t
t/catalyst-traitfor-request-rest.t
t/data-serializer.t
@@ -59,6 +58,7 @@
t/lib/Test/Catalyst/Action/REST.pm
t/lib/Test/Catalyst/Action/REST/Controller/Actions.pm
t/lib/Test/Catalyst/Action/REST/Controller/Deserialize.pm
+t/lib/Test/Catalyst/Action/REST/Controller/Override.pm
t/lib/Test/Catalyst/Action/REST/Controller/REST.pm
t/lib/Test/Catalyst/Action/REST/Controller/Root.pm
t/lib/Test/Catalyst/Action/REST/Controller/Serialize.pm
@@ -68,7 +68,6 @@
t/lib/Test/Serialize/Controller/REST.pm
t/lib/Test/Serialize/View/Awful.pm
t/lib/Test/Serialize/View/Simple.pm
-t/pod.t
t/view.t
t/xml-simple.t
t/yaml-html.t
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=52380&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/META.yml (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/META.yml Tue Feb 9 15:45:10 2010
@@ -35,4 +35,4 @@
resources:
license: http://dev.perl.org/licenses/
repository: git://git.shadowcat.co.uk/catagits/Catalyst-Action-REST.git
-version: 0.82
+version: 0.83
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=52380&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 Tue Feb 9 15:45:10 2010
@@ -7,7 +7,7 @@
use Module::Pluggable::Object;
use MRO::Compat;
-our $VERSION = '0.82';
+our $VERSION = '0.83';
$VERSION = eval $VERSION;
has plugins => ( is => 'rw' );
@@ -16,7 +16,7 @@
my $self = shift;
my ( $controller, $c ) = @_;
- my @demethods = qw(POST PUT OPTIONS);
+ my @demethods = qw(POST PUT OPTIONS DELETE);
my $method = $c->request->method;
if ( grep /^$method$/, @demethods ) {
my ( $sclass, $sarg, $content_type ) =
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=52380&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 Tue Feb 9 15:45:10 2010
@@ -6,7 +6,7 @@
extends 'Catalyst::Action';
use Data::Serializer;
-our $VERSION = '0.82';
+our $VERSION = '0.83';
$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=52380&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 Tue Feb 9 15:45:10 2010
@@ -6,7 +6,7 @@
extends 'Catalyst::Action';
use JSON qw( decode_json );
-our $VERSION = '0.82';
+our $VERSION = '0.83';
$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=52380&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 Tue Feb 9 15:45:10 2010
@@ -5,7 +5,7 @@
extends 'Catalyst::Action';
-our $VERSION = '0.82';
+our $VERSION = '0.83';
$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=52380&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 Tue Feb 9 15:45:10 2010
@@ -5,7 +5,7 @@
extends 'Catalyst::Action';
-our $VERSION = '0.82';
+our $VERSION = '0.83';
$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=52380&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 Tue Feb 9 15:45:10 2010
@@ -6,7 +6,7 @@
extends 'Catalyst::Action';
use YAML::Syck;
-our $VERSION = '0.82';
+our $VERSION = '0.83';
$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=52380&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 Tue Feb 9 15:45:10 2010
@@ -10,7 +10,7 @@
BEGIN { require 5.008001; }
-our $VERSION = '0.82';
+our $VERSION = '0.83';
$VERSION = eval $VERSION;
sub new {
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=52380&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 Tue Feb 9 15:45:10 2010
@@ -7,7 +7,7 @@
use Module::Pluggable::Object;
use MRO::Compat;
-our $VERSION = '0.82';
+our $VERSION = '0.83';
$VERSION = eval $VERSION;
has _encoders => (
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=52380&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 Tue Feb 9 15:45:10 2010
@@ -6,7 +6,7 @@
extends 'Catalyst::Action';
use Data::Serializer;
-our $VERSION = '0.82';
+our $VERSION = '0.83';
$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=52380&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 Tue Feb 9 15:45:10 2010
@@ -6,7 +6,7 @@
extends 'Catalyst::Action';
use JSON ();
-our $VERSION = '0.82';
+our $VERSION = '0.83';
$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=52380&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 Tue Feb 9 15:45:10 2010
@@ -6,7 +6,7 @@
extends 'Catalyst::Action::Serialize::JSON';
use JSON::XS ();
-our $VERSION = '0.82';
+our $VERSION = '0.83';
$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=52380&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 Tue Feb 9 15:45:10 2010
@@ -4,7 +4,7 @@
extends 'Catalyst::Action::Serialize::JSON';
-our $VERSION = '0.82';
+our $VERSION = '0.83';
$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=52380&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 Tue Feb 9 15:45:10 2010
@@ -4,7 +4,7 @@
extends 'Catalyst::Action';
-our $VERSION = '0.82';
+our $VERSION = '0.83';
$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=52380&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 Tue Feb 9 15:45:10 2010
@@ -5,7 +5,7 @@
extends 'Catalyst::Action';
-our $VERSION = '0.82';
+our $VERSION = '0.83';
$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=52380&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 Tue Feb 9 15:45:10 2010
@@ -6,7 +6,7 @@
extends 'Catalyst::Action';
use YAML::Syck;
-our $VERSION = '0.82';
+our $VERSION = '0.83';
$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=52380&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 Tue Feb 9 15:45:10 2010
@@ -7,7 +7,7 @@
use YAML::Syck;
use URI::Find;
-our $VERSION = '0.82';
+our $VERSION = '0.83';
$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=52380&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 Tue Feb 9 15:45:10 2010
@@ -8,7 +8,7 @@
use Catalyst::Request::REST;
use Catalyst::Utils ();
-our $VERSION = '0.82';
+our $VERSION = '0.83';
$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=52380&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 Tue Feb 9 15:45:10 2010
@@ -2,7 +2,7 @@
use Moose;
use namespace::autoclean;
-our $VERSION = '0.82';
+our $VERSION = '0.83';
$VERSION = eval $VERSION;
=head1 NAME
@@ -150,6 +150,11 @@
If a callback=? parameter is passed, this returns javascript in the form of: $callback($serializedJSON);
+Note - this is disabled by default as it can be a security risk if you are unaware.
+
+The usual MIME types for this serialization format are: 'text/javascript', 'application/x-javascript',
+'application/javascript'.
+
=item * C<text/x-data-dumper> => C<Data::Serializer>
Uses the L<Data::Serializer> module to generate L<Data::Dumper> output.
@@ -272,9 +277,6 @@
'text/x-yaml' => 'YAML',
'application/json' => 'JSON',
'text/x-json' => 'JSON',
- 'application/x-javascript' => 'JSONP',
- 'application/javascript' => 'JSONP',
- 'text/javascript' => 'JSONP',
'text/x-data-dumper' => [ 'Data::Serializer', 'Data::Dumper' ],
'text/x-data-denter' => [ 'Data::Serializer', 'Data::Denter' ],
'text/x-data-taxi' => [ 'Data::Serializer', 'Data::Taxi' ],
@@ -509,9 +511,6 @@
'text/x-yaml' => 'YAML',
'application/json' => 'JSON',
'text/x-json' => 'JSON',
- 'application/x-javascript' => 'JSONP',
- 'application/javascript' => 'JSONP',
- 'text/javascript' => 'JSONP',
'text/x-data-dumper' => [ 'Data::Serializer', 'Data::Dumper' ],
'text/x-data-denter' => [ 'Data::Serializer', 'Data::Denter' ],
'text/x-data-taxi' => [ 'Data::Serializer', 'Data::Taxi' ],
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=52380&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 Tue Feb 9 15:45:10 2010
@@ -7,7 +7,7 @@
extends 'Catalyst::Request';
with 'Catalyst::TraitFor::Request::REST';
-our $VERSION = '0.82';
+our $VERSION = '0.83';
$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=52380&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 Tue Feb 9 15:45:10 2010
@@ -3,7 +3,7 @@
use namespace::autoclean;
-our $VERSION = '0.82';
+our $VERSION = '0.83';
$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=52380&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 Tue Feb 9 15:45:10 2010
@@ -3,7 +3,7 @@
use HTTP::Headers::Util qw(split_header_words);
use namespace::autoclean;
-our $VERSION = '0.82';
+our $VERSION = '0.83';
$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=52380&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 Tue Feb 9 15:45:10 2010
@@ -4,7 +4,7 @@
with 'Catalyst::TraitFor::Request::REST';
-our $VERSION = '0.82';
+our $VERSION = '0.83';
$VERSION = eval $VERSION;
has _determined_real_method => (
Modified: branches/upstream/libcatalyst-action-rest-perl/current/t/catalyst-action-serialize-accept.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/t/catalyst-action-serialize-accept.t?rev=52380&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/t/catalyst-action-serialize-accept.t (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/t/catalyst-action-serialize-accept.t Tue Feb 9 15:45:10 2010
@@ -1,6 +1,6 @@
use strict;
use warnings;
-use Test::More tests => 16;
+use Test::More;
use Data::Serializer;
use FindBin;
@@ -88,4 +88,14 @@
is( $res->header('Content-type'), 'text/x-data-dumper', '... with expected content-type')
}
-1;
+# Make sure that the default content type you specify really gets used.
+{
+ my $req = $t->get(url => '/override/test');
+ $req->remove_header('Content-Type');
+ my $res = request($req);
+ ok( $res->is_success, 'GET the serialized request succeeded' );
+ is( $res->content, "--- \nlou: is my cat\n", "Request returned proper data");
+}
+
+done_testing;
+
Added: branches/upstream/libcatalyst-action-rest-perl/current/t/lib/Test/Catalyst/Action/REST/Controller/Override.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/t/lib/Test/Catalyst/Action/REST/Controller/Override.pm?rev=52380&op=file
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/t/lib/Test/Catalyst/Action/REST/Controller/Override.pm (added)
+++ branches/upstream/libcatalyst-action-rest-perl/current/t/lib/Test/Catalyst/Action/REST/Controller/Override.pm Tue Feb 9 15:45:10 2010
@@ -1,0 +1,22 @@
+package Test::Catalyst::Action::REST::Controller::Override;
+
+use Moose;
+use namespace::autoclean;
+
+BEGIN { extends 'Catalyst::Controller' }
+
+__PACKAGE__->config(
+ 'default' => 'application/json',
+ 'map' => {
+ 'application/json' => 'YAML', # Yes, this is deliberate!
+ },
+);
+
+sub test :Local :ActionClass('Serialize') {
+ my ( $self, $c ) = @_;
+ $c->stash->{'rest'} = {
+ lou => 'is my cat',
+ };
+}
+
+1;
Modified: branches/upstream/libcatalyst-action-rest-perl/current/t/lib/Test/Serialize/Controller/REST.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-action-rest-perl/current/t/lib/Test/Serialize/Controller/REST.pm?rev=52380&op=diff
==============================================================================
--- branches/upstream/libcatalyst-action-rest-perl/current/t/lib/Test/Serialize/Controller/REST.pm (original)
+++ branches/upstream/libcatalyst-action-rest-perl/current/t/lib/Test/Serialize/Controller/REST.pm Tue Feb 9 15:45:10 2010
@@ -27,6 +27,9 @@
'text/view' => [ 'View', 'Simple' ],
'text/explodingview' => [ 'View', 'Awful' ],
'text/broken' => 'Broken',
+ 'text/javascript', => 'JSONP',
+ 'application/x-javascript' => 'JSONP',
+ 'application/javascript' => 'JSONP',
},
);
More information about the Pkg-perl-cvs-commits
mailing list