From: Rafael Kitover <rkitover@cpan.org>
Date: Sun, 14 Jun 2009 21:42:04 +0000 (-0700)
Subject: fix mixing of typelibs with regular Moose classes
X-Git-Tag: 0.12^0
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Types.git;a=commitdiff_plain;h=4e6dc81d073596e98bdf19f5884ee2397da31b5e

fix mixing of typelibs with regular Moose classes
---

diff --git a/Changes b/Changes
index cefa04c..88b4574 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+0.12    Sun Jun 14 14:39:57 PDT 2009
+        - fix mixing of typelibs with regular Moose classes
+
 0.11    Sat May 23 18:02:35 PDT 2009
         - warning on string types and unregistered class/role types
         - better error for missing comma
diff --git a/lib/MooseX/Types.pm b/lib/MooseX/Types.pm
index a08fb6c..55bca7e 100644
--- a/lib/MooseX/Types.pm
+++ b/lib/MooseX/Types.pm
@@ -20,7 +20,7 @@ use Scalar::Util                      'reftype';
 use namespace::clean -except => [qw( meta )];
 
 use 5.008;
-our $VERSION = '0.11';
+our $VERSION = '0.12';
 my $UndefMsg = q{Action for type '%s' not yet defined in library '%s'};
 
 =head1 SYNOPSIS
@@ -374,8 +374,8 @@ sub type_export_generator {
     
     ## Return an anonymous subroutine that will generate the proxied type
     ## constraint for you.
-    
-    return subname $name => sub {
+
+    return subname "__ANON__::$name" => sub {
         my $type_constraint = $class->create_base_type_constraint($name);
 
         if(defined(my $params = shift @_)) {