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

diff --git a/lib/Mouse.pm b/lib/Mouse.pm
index 0606dcb..97914a6 100644
--- a/lib/Mouse.pm
+++ b/lib/Mouse.pm
@@ -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;