X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse.pm;h=18c60d1688e30390e9467fa66ba5fc6392dee08f;hp=0606dcb36132897c39f0fd4f9e5a94c4e0c97629;hb=cbc437f2b4ce45360cef004995bd27ffc8649fb8;hpb=a1a1f1f473747ad7a71a5f84e883fec44c3d579d

diff --git a/lib/Mouse.pm b/lib/Mouse.pm
index 0606dcb..18c60d1 100644
--- a/lib/Mouse.pm
+++ b/lib/Mouse.pm
@@ -21,7 +21,7 @@ use Mouse::Util;
 use Mouse::Meta::Attribute;
 use Mouse::Meta::Class;
 use Mouse::Object;
-use Mouse::TypeRegistry;
+use Mouse::Util::TypeConstraints;
 
 our @EXPORT = qw(extends has before after around blessed confess with);
 
@@ -85,6 +85,12 @@ sub import {
 
     my $caller = caller;
 
+    # we should never export to main
+    if ($caller eq 'main') {
+        warn qq{$class does not export its sugar to the 'main' package.\n};
+        return;
+    }
+
     my $meta = Mouse::Meta::Class->initialize($caller);
     $meta->superclasses('Mouse::Object')
         unless $meta->superclasses;