[Catalyst-commits] r14499 - in CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk: lib/CatalystX/CRUD/Model t
karpet at dev.catalyst.perl.org
karpet at dev.catalyst.perl.org
Fri Feb 28 15:17:59 GMT 2014
Author: karpet
Date: 2014-02-28 15:17:59 +0000 (Fri, 28 Feb 2014)
New Revision: 14499
Modified:
CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/lib/CatalystX/CRUD/Model/RDBO.pm
CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/t/02-rest.t
Log:
add debug statement, Results format changes in CXC 0.56
Modified: CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/lib/CatalystX/CRUD/Model/RDBO.pm
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/lib/CatalystX/CRUD/Model/RDBO.pm 2014-02-28 15:07:36 UTC (rev 14498)
+++ CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/lib/CatalystX/CRUD/Model/RDBO.pm 2014-02-28 15:17:59 UTC (rev 14499)
@@ -552,6 +552,7 @@
$c->log->debug("make_query: WHERE $q->{query_obj} ORDER BY $q->{sort_by}")
if $c->debug;
+ $c->log->debug( "query: " . dump $q ) if $c->debug;
return $q;
}
@@ -564,6 +565,8 @@
my $name = $self->name;
my @params = ( object_class => $name ); # not $self->object_class
+ #carp dump \@args;
+
if ( ref $args[0] eq 'HASH' ) {
push( @params, %{ $args[0] } );
}
Modified: CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/t/02-rest.t
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/t/02-rest.t 2014-02-28 15:07:36 UTC (rev 14498)
+++ CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/t/02-rest.t 2014-02-28 15:17:59 UTC (rev 14499)
@@ -83,8 +83,7 @@
offset => 0,
plain_query => { id => [1] },
plain_query_str => "(id='1')",
- query => [ "id", 1 ],
- query_obj => "(id='1')",
+ where => "(id='1')",
sort_by => "t1.id ASC",
sort_order => [ { id => "ASC" } ],
},
@@ -108,8 +107,7 @@
offset => 0,
plain_query => { id => [1] },
plain_query_str => "(id='1')",
- query => [ "id", 1 ],
- query_obj => "(id='1')",
+ where => "(id='1')",
sort_by => "t1.id DESC",
sort_order => [ { id => "DESC" } ],
},
@@ -130,8 +128,7 @@
offset => 0,
plain_query => { id => [1] },
plain_query_str => "(id='1')",
- query => [ "id", 1 ],
- query_obj => "(id='1')",
+ where => "(id='1')",
sort_by => "t1.id DESC",
sort_order => [ { id => "DESC" } ],
},
@@ -154,8 +151,7 @@
offset => 0,
plain_query => { id => [1] },
plain_query_str => "(id='1')",
- query => [ "id", 1 ],
- query_obj => "(id='1')",
+ where => "(id='1')",
sort_by => "t1.id DESC, t1.name ASC",
sort_order => [ { id => "DESC" }, { name => "ASC" } ],
},
More information about the Catalyst-commits
mailing list