coerce a Str to ArrayRef

[dbsrgits/SQL-Translator-2.0-ish.git] / lib / SQL / Translator / Types.pm

diff --git a/lib/SQL/Translator/Types.pm b/lib/SQL/Translator/Types.pm
index 89dc8cc..6e66ee2 100644 (file)
--- a/lib/SQL/Translator/Types.pm
+++ b/lib/SQL/Translator/Types.pm
@@ -32,6 +32,8 @@ class SQL::Translator::Types {
     coerce Trigger, from HashRef, via { SQL::Translator::Object::Trigger->new($_) };
     coerce View, from HashRef, via { SQL::Translator::Object::View->new($_) };
 
+    coerce ArrayRef, from Str, via { [ $_ ] };
+
     subtype MatchType, as Str, where { /^(full|partial|simple)$/ || $_ eq '' };
     coerce MatchType, from Str, via { lc $_ };