more-tweaks

[gitmo/Moose.git] / lib / Moose / Util / TypeConstraints.pm

diff --git a/lib/Moose/Util/TypeConstraints.pm b/lib/Moose/Util/TypeConstraints.pm
index 00a4760..b70c870 100644 (file)
--- a/lib/Moose/Util/TypeConstraints.pm
+++ b/lib/Moose/Util/TypeConstraints.pm
@@ -15,6 +15,7 @@ use Moose::Meta::TypeCoercion;
 sub import {
        shift;
        my $pkg = shift || caller();
+       return if $pkg eq '-no-export';
        no strict 'refs';
        foreach my $export (qw(type subtype as where coerce from via find_type_constraint)) {
                *{"${pkg}::${export}"} = \&{"${export}"};