Mouse and Mouse::Roles does export their sugars to main
gfx [Mon, 19 Oct 2009 08:38:30 +0000 (17:38 +0900)]
lib/Mouse/Exporter.pm
lib/Mouse/Util.pm
lib/Mouse/Util/TypeConstraints.pm

index 910456c..4646a1f 100644 (file)
@@ -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);
index 32f8f7b..3d2276a 100644 (file)
@@ -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
index 56d4734..de9e5f1 100644 (file)
@@ -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;