[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