package MusicBase::Schema::ResultSet::Artist;

use strict;
use warnings;

use base 'DBIx::Class::ResultSet';

sub has_more_than_one_cds {
  my $me = (my $self = shift)->current_source_alias;

  my $rs = $self->search(
    undef,
    {
      join => [ 'cd_rs' ],
      '+select'=> [ { count => 'cd_rs.cd_id', -as => 'cd_count' } ],
      '+as'=> [ 'cd_count' ],
      group_by => [ "$me.artist_id" ],

      # having => { cd_count => { '>', 1 } } # This does not work
      having => { cd_count => \'> 1' } # This does despite being
                                       # undocumented
    }
  );

  return $rs
}
 
1