Merge 'trunk' into 'count_distinct'

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

index 085e643,7f53ec3..aa6fa59
--- 1/lib/DBIx/Class/ResultSet.pm
--- 2/lib/DBIx/Class/ResultSet.pm
+++ b/lib/DBIx/Class/ResultSet.pm
@@@ -307,7 -307,7 +307,7 @@@ sub search_rs 
    my $new_attrs = { %{$our_attrs}, %{$attrs} };
  
    # merge new attrs into inherited
- -  foreach my $key (qw/join prefetch +select +as/) {
+ +  foreach my $key (qw/join prefetch +select +as bind/) {
      next unless exists $attrs->{$key};
      $new_attrs->{$key} = $self->_merge_attr($our_attrs->{$key}, $attrs->{$key});
    }
@@@ -1121,6 -1121,11 +1121,11 @@@ An accessor for the class to use when c
  C<< result_source->result_class >> - which in most cases is the name of the 
  L<"table"|DBIx::Class::Manual::Glossary/"ResultSource"> class.
  
+ Note that changing the result_class will also remove any components
+ that were originally loaded in the source class via
+ L<DBIx::Class::ResultSource/load_components>. Any overloaded methods
+ in the original source class will not run.
+ 
  =cut
  
  sub result_class {
@@@ -1146,6 -1151,12 +1151,6 @@@ Performs an SQL C<COUNT> with the same 
  with to find the number of elements. If passed arguments, does a search
  on the resultset and counts the results of that.
  
- -Note: When using C<count> with C<group_by>, L<DBIx::Class> emulates C<GROUP BY>
- -using C<COUNT( DISTINCT( columns ) )>. Some databases (notably SQLite) do
- -not support C<DISTINCT> with multiple columns. If you are using such a
- -database, you should only use columns from the main table in your C<group_by>
- -clause.
- -
  =cut
  
  sub count {
@@@ -1166,21 -1177,32 +1171,21 @@@
  
  sub _count { # Separated out so pager can get the full count
    my $self = shift;
- -  my $select = { count => '*' };
- -
    my $attrs = { %{$self->_resolved_attrs} };
- -  if (my $group_by = delete $attrs->{group_by}) {
- -    delete $attrs->{having};
- -    my @distinct = (ref $group_by ?  @$group_by : ($group_by));
- -    # todo: try CONCAT for multi-column pk
- -    my @pk = $self->result_source->primary_columns;
- -    if (@pk == 1) {
- -      my $alias = $attrs->{alias};
- -      foreach my $column (@distinct) {
- -        if ($column =~ qr/^(?:\Q${alias}.\E)?$pk[0]$/) {
- -          @distinct = ($column);
- -          last;
- -        }
- -      }
- -    }
  
- -    $select = { count => { distinct => \@distinct } };
+ +  if (my $group_by = $attrs->{group_by}) {
+ +    delete $attrs->{order_by};
+ +
+ +    $attrs->{select} = $group_by; 
+ +    $attrs->{from} = [ { 'mesub' => (ref $self)->new($self->result_source, $attrs)->cursor->as_query } ];
+ +    delete $attrs->{where};
    }
  
- -  $attrs->{select} = $select;
+ +  $attrs->{select} = { count => '*' };
    $attrs->{as} = [qw/count/];
  
- -  # offset, order by and page are not needed to count. record_filter is cdbi
- -  delete $attrs->{$_} for qw/rows offset order_by page pager record_filter/;
+ +  # offset, order by, group by, where and page are not needed to count. record_filter is cdbi
+ +  delete $attrs->{$_} for qw/rows offset order_by group_by page pager record_filter/;
  
    my $tmp_rs = (ref $self)->new($self->result_source, $attrs);
    my ($count) = $tmp_rs->cursor->next;
@@@ -2382,12 -2404,20 +2387,20 @@@ sub _resolved_attrs 
    # build columns (as long as select isn't set) into a set of as/select hashes
    unless ( $attrs->{select} ) {
        @colbits = map {
-           ( ref($_) eq 'HASH' ) ? $_
-             : {
-               (
-                   /^\Q${alias}.\E(.+)$/ ? $1
-                   : $_
-                 ) => ( /\./ ? $_ : "${alias}.$_" )
+           ( ref($_) eq 'HASH' )
+               ? $_
+               : {
+                   (
+                     /^\Q${alias}.\E(.+)$/ 
+                       ? "$1"
+                       : "$_"
+                   )
+                 => 
+                   (
+                     /\./ 
+                       ? "$_" 
+                       : "${alias}.$_"
+                   )
              }
        } ( ref($attrs->{columns}) eq 'ARRAY' ) ? @{ delete $attrs->{columns}} : (delete $attrs->{columns} || $source->columns );
    }