[Catalyst-commits] r8357 - CatalystX-CRUD/CatalystX-CRUD-ModelAdapter-DBIC/trunk/lib/CatalystX/CRUD/ModelAdapter

[karpet at dev.catalyst.perl.org]

Author: karpet
Date: 2008-09-05 05:51:16 +0100 (Fri, 05 Sep 2008)
New Revision: 8357

Modified:
   CatalystX-CRUD/CatalystX-CRUD-ModelAdapter-DBIC/trunk/lib/CatalystX/CRUD/ModelAdapter/DBIC.pm
Log:
add some debugging

Modified: CatalystX-CRUD/CatalystX-CRUD-ModelAdapter-DBIC/trunk/lib/CatalystX/CRUD/ModelAdapter/DBIC.pm
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD-ModelAdapter-DBIC/trunk/lib/CatalystX/CRUD/ModelAdapter/DBIC.pm	2008-09-05 04:44:06 UTC (rev 8356)
+++ CatalystX-CRUD/CatalystX-CRUD-ModelAdapter-DBIC/trunk/lib/CatalystX/CRUD/ModelAdapter/DBIC.pm	2008-09-05 04:51:16 UTC (rev 8357)
@@ -247,7 +247,7 @@
 
     $query->{OPTS} = \%opts;
 
-    #carp "query: " . dump $query;
+    $c->log->debug( "query: " . dump $query ) if $c->debug;
 
     return $query;
 }
@@ -494,6 +494,7 @@
 
 sub read {
     my ( $self, $c, $object ) = @_;
+
     #$object->find;    # TODO is this right? what about discard_changes()?
     $c->log->error("TODO $object does not implement find() method");
     return $object;