Now passing four more tests, has_a and has_many compliance extended

[dbsrgits/DBIx-Class-Historic.git] / lib / DBIx / Class / Table.pm

diff --git a/lib/DBIx/Class/Table.pm b/lib/DBIx/Class/Table.pm
index eabc9e7..56eea71 100644 (file)
--- a/lib/DBIx/Class/Table.pm
+++ b/lib/DBIx/Class/Table.pm
@@ -9,6 +9,8 @@ __PACKAGE__->mk_classdata('_columns' => {});
 
 __PACKAGE__->mk_classdata('_table_name');
 
+__PACKAGE__->mk_classdata('table_alias'); # FIXME XXX
+
 sub new {
   my ($class, $attrs) = @_;
   $class = ref $class if ref $class;
@@ -60,6 +62,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 +127,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);
 }