X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FTable.pm;h=78a97bdb19101993d6e2c054ed42aab0041a0cfc;hb=b8e1e21f0fcd55e6e3ce987e57601b279a75b666;hp=eabc9e72b52fe27e492ed0d5ea5099a621deaf10;hpb=ccee43905adbb8c83ac13c60ca9b66417d13b093;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/Table.pm b/lib/DBIx/Class/Table.pm
index eabc9e7..78a97bd 100644
--- a/lib/DBIx/Class/Table.pm
+++ b/lib/DBIx/Class/Table.pm
@@ -60,6 +60,7 @@ sub update {
 sub delete {
   my $self = shift;
   if (ref $self) {
+    #warn $self->_ident_cond.' '.join(', ', $self->_ident_values);
     my $sth = $self->_get_sth('delete', undef,
                                 $self->_table_name, $self->_ident_cond);
     $sth->execute($self->_ident_values);
@@ -124,6 +125,7 @@ sub retrieve_from_sql {
   $cond =~ s/^\s*WHERE//i;
   my @cols = $class->_select_columns;
   my $sth = $class->_get_sth( 'select', \@cols, $class->_table_name, $cond);
+  #warn "$cond @vals";
   return $class->sth_to_objects($sth, \@vals, \@cols);
 }