[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