http://search.cpan.org/~frew/DBIx-Class-Helpers-2.007000/lib/DBIx/Class/Helper/ResultSet/SetOperations.pm

my $rs1 = $schema->resultset('ContrastDataSetAnnotation')->search(undef, {
    columns => [qw( name value )],
});
my $rs2 = $schema->resultset('GeneSetAnnotation')->search(undef, {
    columns => [qw( name value )],
});

$_->result_class('MyApp::Schema::Result::ContrastDataSetAnnotation')
#  add this
          for ($rs1, $rs2);

my @annotations = $rs1->union($rs2)->all;

_______________________________________________
List: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class
IRC: irc.perl.org#dbix-class
SVN: http://dev.catalyst.perl.org/repos/bast/DBIx-Class/
Searchable Archive: http://www.grokbase.com/group/dbix-class@lists.scsys.co.uk

Reply via email to