X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FTypes.pm;h=c56d45e4bd5c4e860f48d860eada86a7d5d586b1;hb=c2463b826d4890bd79367c30cc819470d99bdf43;hp=eb443bfc2fe131f80813fc405ba1de04fcf7108e;hpb=4c2125a469c0ce6cf4194fb20e7d330c30061a06;p=gitmo%2FMooseX-Types.git

diff --git a/lib/MooseX/Types.pm b/lib/MooseX/Types.pm
index eb443bf..c56d45e 100644
--- a/lib/MooseX/Types.pm
+++ b/lib/MooseX/Types.pm
@@ -304,9 +304,15 @@ sub type_export_generator {
     my ($class, $type, $full) = @_;
     return sub {
         my @args = @_;
-        use Data::Dump qw/dump/; warn @args;
+        use Data::Dump qw/dump/; warn dump @args if @args;
         my $type_constraint = find_type_constraint($full)
          || MooseX::Types::UndefinedType->new($full);
+         
+        if(@args) {
+            my $tc = $args[0]->[0];
+            warn dump $tc;
+            $type_constraint->type_constraint($tc);
+        }
         return MooseX::Types::TypeDecorator->new(type_constraint=>$type_constraint);
     };
 }