No longer require caveat on unique \%options

Perl5 · Nov 3, 2015 · 05e063c · 05e063c
1 parent 5789527
commit 05e063c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/lib/DBIx/Class/ResultSource.pm b/lib/DBIx/Class/ResultSource.pm
@@ -728,8 +728,8 @@ name.
 
 The options hashref will be passed to
 L<SQL::Translator::Schema::Constraint/new>; the intention being to
-allow the C<deferrable> flag to be set. You should avoid putting 
-C<name>, C<fields>, or C<type> in here.
+allow the C<deferrable> flag to be set, but you may find others 
+useful. Note that C<name>, C<type>, and C<fields> will be ignored.
 
 Unique constraints are used, for example, when you pass the constraint
 name as the C<key> attribute to L<DBIx::Class::ResultSet/find>. Then

diff --git a/lib/SQL/Translator/Parser/DBIx/Class.pm b/lib/SQL/Translator/Parser/DBIx/Class.pm
@@ -154,10 +154,10 @@ sub parse {
         foreach my $uniq (sort keys %unique_constraints) {
             if (!$source->_compare_relationship_keys($unique_constraints{$uniq}, \@primary)) {
                 $table->add_constraint(
+                            %{ $unique_constraints_extra{$uniq} // {} },
                             type             => 'unique',
                             name             => $uniq,
                             fields           => $unique_constraints{$uniq},
-                            %{ $unique_constraints_extra{$uniq} // {} },
                 );
             }
         }