Merge 'trunk' into 'table_name_ref'

diff --combined lib/DBIx/Class/ResultSource.pm

index 45ac6ac,1b93f4e..d7f20b4
--- 1/lib/DBIx/Class/ResultSource.pm
--- 2/lib/DBIx/Class/ResultSource.pm
+++ b/lib/DBIx/Class/ResultSource.pm
@@@ -40,8 -40,6 +40,6 @@@ DBIx::Class::ResultSource - Result sour
    # Create a query (view) based result source, in a result class
    package MyDB::Schema::Result::Year2000CDs;
  
-   use DBIx::Class::ResultSource::View;
- 
    __PACKAGE__->load_components('Core');
    __PACKAGE__->table_class('DBIx::Class::ResultSource::View');
  
@@@ -245,9 -243,15 +243,15 @@@ automatically
  
  =item auto_nextval
  
- Set this to a true value for a column whose value is retrieved
- automatically from an oracle sequence. If you do not use an Oracle
- trigger to get the nextval, you have to set sequence as well.
+ Set this to a true value for a column whose value is retrieved automatically
+ from a sequence or function (if supported by your Storage driver.) For a
+ sequence, if you do not use a trigger to get the nextval, you have to set the
+ L</sequence> value as well.
+ 
+ Also set this for MSSQL columns with the 'uniqueidentifier'
+ L<DBIx::Class::ResultSource/data_type> whose values you want to automatically
+ generate using C<NEWID()>, unless they are a primary key in which case this will
+ be done anyway.
  
  =item extra
  
@@@ -580,10 -584,7 +584,10 @@@ optional constraint name
  sub name_unique_constraint {
    my ($self, $cols) = @_;
  
- -  return join '_', $self->name, @$cols;
+ +  my $name = $self->name;
+ +  $name = $$name if ref $name;
+ +
+ +  return join '_', $name, @$cols;
  }
  
  =head2 unique_constraints
diff --combined lib/DBIx/Class/ResultSourceProxy/Table.pm

index b39e0b6,929c300..db82b47
--- 1/lib/DBIx/Class/ResultSourceProxy/Table.pm
--- 2/lib/DBIx/Class/ResultSourceProxy/Table.pm
+++ b/lib/DBIx/Class/ResultSourceProxy/Table.pm
@@@ -5,9 -5,6 +5,9 @@@ use warnings
  
  use base qw/DBIx::Class::ResultSourceProxy/;
  
+ +use DBIx::Class::ResultSource::Table;
+ +use Scalar::Util ();
+ +
  __PACKAGE__->mk_classdata(table_class => 'DBIx::Class::ResultSource::Table');
  
  __PACKAGE__->mk_classdata('table_alias'); # FIXME: Doesn't actually do
@@@ -23,8 -20,11 +23,11 @@@ sub _init_result_source_instance 
      my $class_has_table_instance = ($table and $table->result_class eq $class);
      return $table if $class_has_table_instance;
  
+     my $table_class = $class->table_class;
+     $class->ensure_class_loaded($table_class);
+ 
      if( $table ) {
-         $table = $class->table_class->new({
+         $table = $table_class->new({
              %$table,
              result_class => $class,
              source_name => undef,
@@@ -32,7 -32,7 +35,7 @@@
          });
      }
      else {
-         $table = $class->table_class->new({
+         $table = $table_class->new({
              name            => undef,
              result_class    => $class,
              source_name     => undef,
@@@ -76,9 -76,12 +79,13 @@@ Gets or sets the table name
  sub table {
    my ($class, $table) = @_;
    return $class->result_source_instance->name unless $table;
- -  unless (ref $table) {
+ +
+ +  unless (Scalar::Util::blessed($table) && $table->isa($class->table_class)) {
-     $table = $class->table_class->new({
+ 
+     my $table_class = $class->table_class;
+     $class->ensure_class_loaded($table_class);
+ 
+     $table = $table_class->new({
          $class->can('result_source_instance') ?
            %{$class->result_source_instance||{}} : (),
          name => $table,
diff --combined lib/DBIx/Class/SQLAHacks.pm

index 15f1a94,c03adbb..61ff365
--- 1/lib/DBIx/Class/SQLAHacks.pm
--- 2/lib/DBIx/Class/SQLAHacks.pm
+++ b/lib/DBIx/Class/SQLAHacks.pm
@@@ -170,7 -170,8 +170,8 @@@ sub _Top 
        $quoted_alias = $self->_quote ('column_' . (@inner_select + 1) );
      }
      # column name seen more than once - alias it
-     elsif ($orig_colname && ($seen_names{$orig_colname} > 1) ) {
+     elsif ($orig_colname &&
+           ($seen_names{$orig_colname} && $seen_names{$orig_colname} > 1) ) {
        $quoted_alias = $self->_quote ("${table}__${orig_colname}");
      }
  
@@@ -328,10 -329,12 +329,10 @@@ sub select 
  
    $self->{"${_}_bind"} = [] for (qw/having from order/);
  
- -  if (ref $table eq 'SCALAR') {
- -    $table = $$table;
- -  }
- -  elsif (not ref $table) {
+ +  if (not ref($table) or ref($table) eq 'SCALAR') {
      $table = $self->_quote($table);
    }
+ +
    local $self->{rownum_hack_count} = 1
      if (defined $rest[0] && $self->{limit_dialect} eq 'RowNum');
    @rest = (-1) unless defined $rest[0];
@@@ -351,7 -354,7 +352,7 @@@
  sub insert {
    my $self = shift;
    my $table = shift;
- -  $table = $self->_quote($table) unless ref($table);
+ +  $table = $self->_quote($table);
  
    # SQLA will emit INSERT INTO $table ( ) VALUES ( )
    # which is sadly understood only by MySQL. Change default behavior here,
@@@ -367,7 -370,7 +368,7 @@@
  sub update {
    my $self = shift;
    my $table = shift;
- -  $table = $self->_quote($table) unless ref($table);
+ +  $table = $self->_quote($table);
    $self->SUPER::update($table, @_);
  }
  
@@@ -375,7 -378,7 +376,7 @@@
  sub delete {
    my $self = shift;
    my $table = shift;
- -  $table = $self->_quote($table) unless ref($table);
+ +  $table = $self->_quote($table);
    $self->SUPER::delete($table, @_);
  }
  
@@@ -581,7 -584,6 +582,7 @@@ sub _join_condition 
  sub _quote {
    my ($self, $label) = @_;
    return '' unless defined $label;
+ +  return $$label if ref($label) eq 'SCALAR';
    return "*" if $label eq '*';
    return $label unless $self->{quote_char};
    if(ref $self->{quote_char} eq "ARRAY"){
		1	2
lib/DBIx/Class/ResultSource.pm	patch \|	diff1 \|	diff2 \|	blob \| history
lib/DBIx/Class/ResultSourceProxy/Table.pm	patch \|	diff1 \|	diff2 \|	blob \| history
lib/DBIx/Class/SQLAHacks.pm	patch \|	diff1 \|	diff2 \|	blob \| history