Improve trigger 'scope' attribute support (RT#119997)

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

diff --git a/lib/SQL/Translator/Types.pm b/lib/SQL/Translator/Types.pm
index f2cdb03..754ca60 100644 (file)
--- a/lib/SQL/Translator/Types.pm
+++ b/lib/SQL/Translator/Types.pm
@@ -1,5 +1,8 @@
 package SQL::Translator::Types;
 
+use warnings;
+use strict;
+
 =head1 NAME
 
 SQL::Translator::Types - Type checking functions
@@ -11,7 +14,7 @@ SQL::Translator::Types - Type checking functions
     use SQL::Translator::Types qw(schema_obj enum);
 
     has foo => ( is => 'rw', isa => schema_obj('Trigger') );
-    has bar => ( is => 'rw', isa => enum([q(baz quux quuz)], {
+    has bar => ( is => 'rw', isa => enum([qw(baz quux quuz)], {
         msg => "Invalid value for bar: '%s'", icase => 1,
     });
 
@@ -23,8 +26,6 @@ Errors are reported using L<SQL::Translator::Utils/throw>.
 
 =cut
 
-use strictures 1;
-
 use SQL::Translator::Utils qw(throw);
 use Scalar::Util qw(blessed);