[Catalyst-commits] r10175 - in
Catalyst-Controller-DBIC-API/1.003/trunk:
lib/Catalyst/Controller/DBIC t/lib/RestTest/Controller/API/REST
t/lib/RestTest/Controller/API/RPC t/rpc t/var
lukes at dev.catalyst.perl.org
lukes at dev.catalyst.perl.org
Sat May 16 13:00:26 GMT 2009
Author: lukes
Date: 2009-05-16 13:00:26 +0000 (Sat, 16 May 2009)
New Revision: 10175
Modified:
Catalyst-Controller-DBIC-API/1.003/trunk/lib/Catalyst/Controller/DBIC/API.pm
Catalyst-Controller-DBIC-API/1.003/trunk/t/lib/RestTest/Controller/API/REST/Producer.pm
Catalyst-Controller-DBIC-API/1.003/trunk/t/lib/RestTest/Controller/API/RPC/Producer.pm
Catalyst-Controller-DBIC-API/1.003/trunk/t/rpc/list_prefetch.t
Catalyst-Controller-DBIC-API/1.003/trunk/t/var/DBIxClass.db
Log:
removed all NEXT calls from tests and docs
Modified: Catalyst-Controller-DBIC-API/1.003/trunk/lib/Catalyst/Controller/DBIC/API.pm
===================================================================
--- Catalyst-Controller-DBIC-API/1.003/trunk/lib/Catalyst/Controller/DBIC/API.pm 2009-05-16 12:55:42 UTC (rev 10174)
+++ Catalyst-Controller-DBIC-API/1.003/trunk/lib/Catalyst/Controller/DBIC/API.pm 2009-05-16 13:00:26 UTC (rev 10175)
@@ -75,7 +75,7 @@
return;
}
- $self->NEXT::setup($c);
+ $self->next::method($c);
}
Generally it's better to have one controller for each DBIC source with the config hardcoded, but in some cases this isn't possible.
@@ -231,7 +231,7 @@
sub setup :Chained('/api/rpc_base') :CaptureArgs(0) :PathPart('track') {
my ($self, $c) = @_;
- $self->NEXT::setup($c);
+ $self->next::method($c);
}
This action will populate $c->stash->{$self->rs_stash_key} with $c->model($self->class) for other actions in the chain to use.
@@ -306,7 +306,7 @@
my ($self, $c) = @_;
# will set $c->stash->{created_object} if successful
- $self->NEXT::create($c);
+ $self->next::method($c);
if ($c->stash->{created_object}) {
# $c->stash->{response} will be serialized in the end action
Modified: Catalyst-Controller-DBIC-API/1.003/trunk/t/lib/RestTest/Controller/API/REST/Producer.pm
===================================================================
--- Catalyst-Controller-DBIC-API/1.003/trunk/t/lib/RestTest/Controller/API/REST/Producer.pm 2009-05-16 12:55:42 UTC (rev 10174)
+++ Catalyst-Controller-DBIC-API/1.003/trunk/t/lib/RestTest/Controller/API/REST/Producer.pm 2009-05-16 13:00:26 UTC (rev 10175)
@@ -15,7 +15,7 @@
sub create :Private {
my ($self, $c) = @_;
- $self->NEXT::create($c);
+ $self->next::method($c);
if ($c->stash->{created_object}) {
%{$c->stash->{response}->{new_producer}} = $c->stash->{created_object}->get_columns;
Modified: Catalyst-Controller-DBIC-API/1.003/trunk/t/lib/RestTest/Controller/API/RPC/Producer.pm
===================================================================
--- Catalyst-Controller-DBIC-API/1.003/trunk/t/lib/RestTest/Controller/API/RPC/Producer.pm 2009-05-16 12:55:42 UTC (rev 10174)
+++ Catalyst-Controller-DBIC-API/1.003/trunk/t/lib/RestTest/Controller/API/RPC/Producer.pm 2009-05-16 13:00:26 UTC (rev 10175)
@@ -15,7 +15,7 @@
sub create :Chained('setup') :Args(0) :PathPart('create') {
my ($self, $c) = @_;
- $self->NEXT::create($c);
+ $self->next::method($c);
if ($c->stash->{created_object}) {
%{$c->stash->{response}->{new_producer}} = $c->stash->{created_object}->get_columns;
Modified: Catalyst-Controller-DBIC-API/1.003/trunk/t/rpc/list_prefetch.t
===================================================================
--- Catalyst-Controller-DBIC-API/1.003/trunk/t/rpc/list_prefetch.t 2009-05-16 12:55:42 UTC (rev 10174)
+++ Catalyst-Controller-DBIC-API/1.003/trunk/t/rpc/list_prefetch.t 2009-05-16 13:00:26 UTC (rev 10175)
@@ -10,7 +10,7 @@
use RestTest;
use DBICTest;
use URI;
-use Test::More tests => 7;
+use Test::More tests => 13;
use Test::WWW::Mechanize::Catalyst 'RestTest';
use HTTP::Request::Common;
use JSON::Syck;
Modified: Catalyst-Controller-DBIC-API/1.003/trunk/t/var/DBIxClass.db
===================================================================
(Binary files differ)
More information about the Catalyst-commits
mailing list