Hack for now, constraint in find if a key is specified

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / ResultSet.pm

diff --git a/lib/DBIx/Class/ResultSet.pm b/lib/DBIx/Class/ResultSet.pm
index 9b5a42b..0014064 100644 (file)
--- a/lib/DBIx/Class/ResultSet.pm
+++ b/lib/DBIx/Class/ResultSet.pm
@@ -310,6 +310,11 @@ sub find {
     $query = {@_};
   }
 
+  if (exists $attrs->{key}) {
+    my @unique_cols = $self->result_source->unique_constraint_columns($attrs->{key});
+    $query = $self->_build_unique_query($query, \@unique_cols);
+  }
+
   # Add the ResultSet's alias
   foreach my $key (grep { ! m/\./ } keys %$query) {
     $query->{"$self->{attrs}{alias}.$key"} = delete $query->{$key};