[Catalyst-commits] r11848 - Catalyst-Controller-DBIC-API/1.003/trunk/lib/Catalyst/Controller/DBIC/API

lukes at dev.catalyst.perl.org lukes at dev.catalyst.perl.org
Mon Nov 16 09:13:11 GMT 2009


Author: lukes
Date: 2009-11-16 09:13:11 +0000 (Mon, 16 Nov 2009)
New Revision: 11848

Modified:
   Catalyst-Controller-DBIC-API/1.003/trunk/lib/Catalyst/Controller/DBIC/API/Base.pm
Log:
fixed 'isa redefined warnings'

Modified: Catalyst-Controller-DBIC-API/1.003/trunk/lib/Catalyst/Controller/DBIC/API/Base.pm
===================================================================
--- Catalyst-Controller-DBIC-API/1.003/trunk/lib/Catalyst/Controller/DBIC/API/Base.pm	2009-11-16 06:02:14 UTC (rev 11847)
+++ Catalyst-Controller-DBIC-API/1.003/trunk/lib/Catalyst/Controller/DBIC/API/Base.pm	2009-11-16 09:13:11 UTC (rev 11848)
@@ -3,11 +3,12 @@
 
 use strict;
 use warnings;
-use base qw/Catalyst::Controller CGI::Expand/;
+use base qw/Catalyst::Controller/;
+use CGI::Expand qw/expand_hash/;
 
 use DBIx::Class::ResultClass::HashRefInflator;
 use JSON::Any;
-use Test::Deep::NoTest;
+use Test::Deep::NoTest qw/eq_deeply/;
 
 __PACKAGE__->mk_accessors(qw/
     class create_requires
@@ -50,7 +51,7 @@
 	if ($c->req->data && scalar(keys %{$c->req->data})) {
 		$req_params = $c->req->data;
 	} else {
-		$req_params = $self->expand_hash($c->req->params);
+		$req_params = expand_hash($c->req->params);
 		foreach my $param (qw/search list_count list_ordered_by list_grouped_by list_prefetch/) {
 			# these params can also be composed of JSON
 			eval {




More information about the Catalyst-commits mailing list