coerce a hash into an Index

diff --git a/lib/SQL/Translator/Object/Table.pm b/lib/SQL/Translator/Object/Table.pm
index 918cd14..08388a5 100644 (file)
--- a/lib/SQL/Translator/Object/Table.pm
+++ b/lib/SQL/Translator/Object/Table.pm
@@ -107,7 +107,7 @@ class SQL::Translator::Object::Table extends SQL::Translator::Object is dirty {
         }
         $self->$orig($name, $constraint)
     }
-    around add_index(Index $index) {
+    around add_index(Index $index does coerce) {
         my $name = $index->name;
         if ($name eq '') {
             my $idx = 0;