Clean the type library

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

diff --git a/lib/SQL/Abstract/Types.pm b/lib/SQL/Abstract/Types.pm
index 9c49bc9..51b834b 100644 (file)
--- a/lib/SQL/Abstract/Types.pm
+++ b/lib/SQL/Abstract/Types.pm
@@ -1,9 +1,12 @@
 use MooseX::Declare;
 class SQL::Abstract::Types {
   use Moose::Util::TypeConstraints;
-  use MooseX::Types -declare => [qw/NameSeparator QuoteChars AST/];
   use MooseX::Types::Moose qw/ArrayRef Str Int Ref HashRef/;
 
+  clean;
+
+  use MooseX::Types -declare => [qw/NameSeparator QuoteChars AST/];
+
   subtype AST, as HashRef,
     where { exists $_->{-type} && is_Str($_->{-type}) },
     message { "No '-type' key, or it is not a string" };