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

diff --git a/lib/Mouse.pm b/lib/Mouse.pm
index 0606dcb..0d5e443 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;
@@ -228,6 +234,14 @@ as Mouse unless Moose is loaded, in which case it will act as Moose.
 
 Mouse also has the blessings of Moose's author, stevan.
 
+=head2 MouseX
+
+Please don't copy MooseX code to MouseX. If you need extensions, you really
+should upgrade to Moose. We don't need two parallel sets of extensions!
+
+If you really must write a Mouse extension, please contact the Moose mailing
+list or #moose on IRC beforehand.
+
 =head1 KEYWORDS
 
 =head2 meta -> Mouse::Meta::Class