From: gfx <gfuji@cpan.org>
Date: Mon, 19 Oct 2009 08:38:30 +0000 (+0900)
Subject: Mouse and Mouse::Roles does export their sugars to main
X-Git-Tag: 0.40~7
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=61fcd0dad2a4b4bc1f616b95b9c162597098503a;p=gitmo%2FMouse.git

Mouse and Mouse::Roles does export their sugars to main
---

diff --git a/lib/Mouse/Exporter.pm b/lib/Mouse/Exporter.pm
index 910456c..4646a1f 100644
--- a/lib/Mouse/Exporter.pm
+++ b/lib/Mouse/Exporter.pm
@@ -161,11 +161,6 @@ sub do_import {
     $^H              |= _strict_bits;         # strict->import;
     ${^WARNING_BITS}  = $warnings::Bits{all}; # warnings->import;
 
-    if($into eq 'main' && !$spec->{_export_to_main}){
-        warn qq{$package does not export its sugar to the 'main' package.\n};
-        return;
-    }
-
     if($spec->{INIT_META}){
         foreach my $init_meta(@{$spec->{INIT_META}}){
             $into->$init_meta(for_class => $into);
diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm
index 32f8f7b..3d2276a 100644
--- a/lib/Mouse/Util.pm
+++ b/lib/Mouse/Util.pm
@@ -34,7 +34,6 @@ Mouse::Exporter->setup_import_methods(
         # The ':meta' group is 'use metaclass' for Mouse
         meta    => [qw(does meta dump _MOUSE_VERBOSE)],
     },
-    _export_to_main => 1,
 );
 
 # aliases as public APIs
diff --git a/lib/Mouse/Util/TypeConstraints.pm b/lib/Mouse/Util/TypeConstraints.pm
index 56d4734..de9e5f1 100644
--- a/lib/Mouse/Util/TypeConstraints.pm
+++ b/lib/Mouse/Util/TypeConstraints.pm
@@ -14,8 +14,6 @@ Mouse::Exporter->setup_import_methods(
         type subtype coerce class_type role_type enum
         find_type_constraint
     )],
-
-    _export_to_main => 1,
 );
 
 my %TYPE;