[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