Merge 'trunk' into 'storage-interbase'

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

index 8d0293c,a397ceb..bace837
--- 1/lib/DBIx/Class/Row.pm
--- 2/lib/DBIx/Class/Row.pm
+++ b/lib/DBIx/Class/Row.pm
@@@ -347,26 -347,6 +347,26 @@@ sub insert 
      $self->store_column($auto_pri[$_] => $ids[$_]) for 0 .. $#ids;
    }
  
+ +  # get non-PK auto-incs
+ +  {
+ +    my $rsrc = $self->result_source;
+ +    my %pk;
+ +    @pk{ $rsrc->primary_columns } = (); 
+ +
+ +    my @non_pk_autoincs = grep {
+ +      (not exists $pk{$_})
+ +      && (not defined $self->get_column($_))
+ +      && $rsrc->column_info($_)->{is_auto_increment}
+ +    } $rsrc->columns;
+ +
+ +    if (@non_pk_autoincs) {
+ +      my @ids = $rsrc->storage->last_insert_id($rsrc, @non_pk_autoincs);
+ +
+ +      if (@ids == @non_pk_autoincs) {
+ +        $self->store_column($non_pk_autoincs[$_] => $ids[$_]) for 0 .. $#ids;
+ +      }
+ +    }
+ +  }
  
    $self->{_dirty_columns} = {};
    $self->{related_resultsets} = {};
@@@ -470,7 -450,7 +470,7 @@@ need to preserve the hashref, it is suf
  to C<update>, e.g. ( { %{ $href } } )
  
  If the values passed or any of the column values set on the object
- contain scalar references, eg:
+ contain scalar references, e.g.:
  
    $row->last_modified(\'NOW()');
    # OR
@@@ -918,7 -898,7 +918,7 @@@ Will even accept arrayrefs of data as 
  L<DBIx::Class::Relationship/has_many> key, and create the related
  objects if necessary.
  
- Be aware that the input hashref might be edited in place, so dont rely
+ Be aware that the input hashref might be edited in place, so don't rely
  on it being the same after a call to C<set_inflated_columns>. If you
  need to preserve the hashref, it is sufficient to pass a shallow copy
  to C<set_inflated_columns>, e.g. ( { %{ $href } } )
@@@ -972,7 -952,7 +972,7 @@@ so that the database can insert its ow
  the new object.
  
  Relationships will be followed by the copy procedure B<only> if the
- relationship specifes a true value for its
+ relationship specifies a true value for its
  L<cascade_copy|DBIx::Class::Relationship::Base> attribute. C<cascade_copy>
  is set by default on C<has_many> relationships and unset on all others.
  
@@@ -995,7 -975,7 +995,7 @@@ sub copy 
    $new->insert;
  
    # Its possible we'll have 2 relations to the same Source. We need to make
-   # sure we don't try to insert the same row twice esle we'll violate unique
+   # sure we don't try to insert the same row twice else we'll violate unique
    # constraints
    my $rels_copied = {};
  
diff --combined lib/DBIx/Class/Storage/DBI.pm

index 055d2dc,d56cd44..4eaefc0
--- 1/lib/DBIx/Class/Storage/DBI.pm
--- 2/lib/DBIx/Class/Storage/DBI.pm
+++ b/lib/DBIx/Class/Storage/DBI.pm
@@@ -16,11 -16,6 +16,6 @@@ use List::Util()
  use Data::Dumper::Concise();
  use Sub::Name ();
  
- # what version of sqlt do we require if deploy() without a ddl_dir is invoked
- # when changing also adjust the corresponding author_require in Makefile.PL
- my $minimum_sqlt_version = '0.11002';
- 
- 
  __PACKAGE__->mk_group_accessors('simple' =>
    qw/_connect_info _dbi_connect_info _dbh _sql_maker _sql_maker_opts _conn_pid
       _conn_tid transaction_depth _dbh_autocommit _driver_determined savepoints/
@@@ -195,7 -190,7 +190,7 @@@ for most DBDs. See L</DBIx::Class and A
  In addition to the standard L<DBI|DBI/ATTRIBUTES_COMMON_TO_ALL_HANDLES>
  L<connection|DBI/Database_Handle_Attributes> attributes, DBIx::Class recognizes
  the following connection options. These options can be mixed in with your other
- L<DBI> connection attributes, or placed in a seperate hashref
+ L<DBI> connection attributes, or placed in a separate hashref
  (C<\%extra_attributes>) as shown above.
  
  Every time C<connect_info> is invoked, any previous settings for
@@@ -347,7 -342,7 +342,7 @@@ SQL Server you should use C<< quote_cha
  =item name_sep
  
  This only needs to be used in conjunction with C<quote_char>, and is used to
- specify the charecter that seperates elements (schemas, tables, columns) from
+ specify the character that separates elements (schemas, tables, columns) from
  each other. In most cases this is simply a C<.>.
  
  The consequences of not supplying this value is that L<SQL::Abstract>
@@@ -783,8 -778,8 +778,8 @@@ sub with_deferred_fk_checks 
  
  =back
  
- Verifies that the the current database handle is active and ready to execute
- an SQL statement (i.e. the connection did not get stale, server is still
+ Verifies that the current database handle is active and ready to execute
+ an SQL statement (e.g. the connection did not get stale, server is still
  answering, etc.) This method is used internally by L</dbh>.
  
  =cut
@@@ -1518,11 -1513,7 +1513,11 @@@ sub _execute_array 
  
      my @data = map { $_->[$data_index] } @$data;
  
- -    $sth->bind_param_array( $placeholder_index, [@data], $attributes );
+ +    $sth->bind_param_array(
+ +      $placeholder_index,
+ +      [@data],
+ +      (%$attributes ?  $attributes : ()),
+ +    );
      $placeholder_index++;
    }
  
@@@ -1610,15 -1601,7 +1605,7 @@@ sub _subq_update_delete 
    my $rsrc = $rs->result_source;
  
    # quick check if we got a sane rs on our hands
-   my @pcols = $rsrc->primary_columns;
-   unless (@pcols) {
-     $self->throw_exception (
-       sprintf (
-         "You must declare primary key(s) on source '%s' (via set_primary_key) in order to update or delete complex resultsets",
-         $rsrc->source_name || $rsrc->from
-       )
-     );
-   }
+   my @pcols = $rsrc->_pri_cols;
  
    my $sel = $rs->_resolved_attrs->{select};
    $sel = [ $sel ] unless ref $sel eq 'ARRAY';
@@@ -1671,7 -1654,7 +1658,7 @@@ sub _per_row_update_delete 
    my ($rs, $op, $values) = @_;
  
    my $rsrc = $rs->result_source;
-   my @pcols = $rsrc->primary_columns;
+   my @pcols = $rsrc->_pri_cols;
  
    my $guard = $self->txn_scope_guard;
  
@@@ -1905,7 -1888,33 +1892,33 @@@ sub _count_select 
  #
  sub _subq_count_select {
    my ($self, $source, $rs_attrs) = @_;
-   return $rs_attrs->{group_by} if $rs_attrs->{group_by};
+ 
+   if (my $groupby = $rs_attrs->{group_by}) {
+ 
+     my $avail_columns = $self->_resolve_column_info ($rs_attrs->{from});
+ 
+     my $sel_index;
+     for my $sel (@{$rs_attrs->{select}}) {
+       if (ref $sel eq 'HASH' and $sel->{-as}) {
+         $sel_index->{$sel->{-as}} = $sel;
+       }
+     }
+ 
+     my @selection;
+     for my $g_part (@$groupby) {
+       if (ref $g_part or $avail_columns->{$g_part}) {
+         push @selection, $g_part;
+       }
+       elsif ($sel_index->{$g_part}) {
+         push @selection, $sel_index->{$g_part};
+       }
+       else {
+         $self->throw_exception ("group_by criteria '$g_part' not contained within current resultset source(s)");
+       }
+     }
+ 
+     return \@selection;
+   }
  
    my @pcols = map { join '.', $rs_attrs->{alias}, $_ } ($source->primary_columns);
    return @pcols ? \@pcols : [ 1 ];
@@@ -2255,8 -2264,9 +2268,9 @@@ sub create_ddl_dir 
      %{$sqltargs || {}}
    };
  
-   $self->throw_exception("Can't create a ddl file without SQL::Translator: " . $self->_sqlt_version_error)
-     if !$self->_sqlt_version_ok;
+   unless (DBIx::Class::Optional::Dependencies->req_ok_for ('deploy')) {
+     $self->throw_exception("Can't create a ddl file without " . DBIx::Class::Optional::Dependencies->req_missing_for ('deploy') );
+   }
  
    my $sqlt = SQL::Translator->new( $sqltargs );
  
@@@ -2398,8 -2408,9 +2412,9 @@@ sub deployment_statements 
        return join('', @rows);
    }
  
-   $self->throw_exception("Can't deploy without either SQL::Translator or a ddl_dir: " . $self->_sqlt_version_error )
-     if !$self->_sqlt_version_ok;
+   unless (DBIx::Class::Optional::Dependencies->req_ok_for ('deploy') ) {
+     $self->throw_exception("Can't deploy without a ddl_dir or " . DBIx::Class::Optional::Dependencies->req_missing_for ('deploy') );
+   }
  
    # sources needs to be a parser arg, but for simplicty allow at top level
    # coming in
@@@ -2449,7 -2460,7 +2464,7 @@@ sub deploy 
      }
      $self->_query_end($line);
    };
-   my @statements = $self->deployment_statements($schema, $type, undef, $dir, { %{ $sqltargs || {} }, no_comments => 1 } );
+   my @statements = $schema->deployment_statements($type, undef, $dir, { %{ $sqltargs || {} }, no_comments => 1 } );
    if (@statements > 1) {
      foreach my $statement (@statements) {
        $deploy->( $statement );
@@@ -2523,33 -2534,6 +2538,6 @@@ sub lag_behind_master 
      return;
  }
  
- # SQLT version handling
- {
-   my $_sqlt_version_ok;     # private
-   my $_sqlt_version_error;  # private
- 
-   sub _sqlt_version_ok {
-     if (!defined $_sqlt_version_ok) {
-       eval "use SQL::Translator $minimum_sqlt_version";
-       if ($@) {
-         $_sqlt_version_ok = 0;
-         $_sqlt_version_error = $@;
-       }
-       else {
-         $_sqlt_version_ok = 1;
-       }
-     }
-     return $_sqlt_version_ok;
-   }
- 
-   sub _sqlt_version_error {
-     shift->_sqlt_version_ok unless defined $_sqlt_version_ok;
-     return $_sqlt_version_error;
-   }
- 
-   sub _sqlt_minimum_version { $minimum_sqlt_version };
- }
- 
  =head2 relname_to_table_alias
  
  =over 4
		1	2
lib/DBIx/Class/Row.pm	patch \|	diff1 \|	diff2 \|	blob \| history
lib/DBIx/Class/Storage/DBI.pm	patch \|	diff1 \|	diff2 \|	blob \| history