r38834 - in /trunk/libmoosex-types-perl: Changes MANIFEST META.yml debian/changelog lib/MooseX/Types.pm lib/MooseX/Types/TypeDecorator.pm t/20_union_with_string_type.t

[ansgar-guest at users.alioth.debian.org]

Author: ansgar-guest
Date: Sat Jun 27 16:37:20 2009
New Revision: 38834

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=38834
Log:
New upstream release

Added:
    trunk/libmoosex-types-perl/t/20_union_with_string_type.t
      - copied unchanged from r38833, branches/upstream/libmoosex-types-perl/current/t/20_union_with_string_type.t
Modified:
    trunk/libmoosex-types-perl/Changes
    trunk/libmoosex-types-perl/MANIFEST
    trunk/libmoosex-types-perl/META.yml
    trunk/libmoosex-types-perl/debian/changelog
    trunk/libmoosex-types-perl/lib/MooseX/Types.pm
    trunk/libmoosex-types-perl/lib/MooseX/Types/TypeDecorator.pm

Modified: trunk/libmoosex-types-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-types-perl/Changes?rev=38834&op=diff
==============================================================================
--- trunk/libmoosex-types-perl/Changes (original)
+++ trunk/libmoosex-types-perl/Changes Sat Jun 27 16:37:20 2009
@@ -1,4 +1,7 @@
 Revision history for MooseX-Types
+
+0.14    Fri Jun 26 17:52:20 PDT 2009
+        - Fix union with string type
 
 0.13    Tue Jun 23 05:46:33 PDT 2009
         - Add Test::Moose to build_requires for Fedora

Modified: trunk/libmoosex-types-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-types-perl/MANIFEST?rev=38834&op=diff
==============================================================================
--- trunk/libmoosex-types-perl/MANIFEST (original)
+++ trunk/libmoosex-types-perl/MANIFEST Sat Jun 27 16:37:20 2009
@@ -33,6 +33,7 @@
 t/17_syntax_errors.t
 t/18_combined_libs.t
 t/19_typelib_with_role.t
+t/20_union_with_string_type.t
 t/lib/Combined.pm
 t/lib/DecoratorLibrary.pm
 t/lib/IntrospectTypeExports.pm

Modified: trunk/libmoosex-types-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-types-perl/META.yml?rev=38834&op=diff
==============================================================================
--- trunk/libmoosex-types-perl/META.yml (original)
+++ trunk/libmoosex-types-perl/META.yml Sat Jun 27 16:37:20 2009
@@ -23,7 +23,7 @@
 provides:
   MooseX::Types:
     file: lib/MooseX/Types.pm
-    version: 0.13
+    version: 0.14
   MooseX::Types::Base:
     file: lib/MooseX/Types/Base.pm
   MooseX::Types::CheckedUtilExports:
@@ -51,4 +51,4 @@
   perl: 5.8.0
 resources:
   license: http://dev.perl.org/licenses/
-version: 0.13
+version: 0.14

Modified: trunk/libmoosex-types-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-types-perl/debian/changelog?rev=38834&op=diff
==============================================================================
--- trunk/libmoosex-types-perl/debian/changelog (original)
+++ trunk/libmoosex-types-perl/debian/changelog Sat Jun 27 16:37:20 2009
@@ -1,3 +1,9 @@
+libmoosex-types-perl (0.14-1) unstable; urgency=low
+
+  * New upstream release
+
+ -- Ansgar Burchardt <ansgar at 43-1.org>  Sat, 27 Jun 2009 18:35:10 +0200
+
 libmoosex-types-perl (0.13-1) unstable; urgency=low
 
   * New upstream release.

Modified: trunk/libmoosex-types-perl/lib/MooseX/Types.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-types-perl/lib/MooseX/Types.pm?rev=38834&op=diff
==============================================================================
--- trunk/libmoosex-types-perl/lib/MooseX/Types.pm (original)
+++ trunk/libmoosex-types-perl/lib/MooseX/Types.pm Sat Jun 27 16:37:20 2009
@@ -20,7 +20,7 @@
 use namespace::clean -except => [qw( meta )];
 
 use 5.008;
-our $VERSION = '0.13';
+our $VERSION = '0.14';
 my $UndefMsg = q{Action for type '%s' not yet defined in library '%s'};
 
 =head1 SYNOPSIS

Modified: trunk/libmoosex-types-perl/lib/MooseX/Types/TypeDecorator.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-types-perl/lib/MooseX/Types/TypeDecorator.pm?rev=38834&op=diff
==============================================================================
--- trunk/libmoosex-types-perl/lib/MooseX/Types/TypeDecorator.pm (original)
+++ trunk/libmoosex-types-perl/lib/MooseX/Types/TypeDecorator.pm Sat Jun 27 16:37:20 2009
@@ -23,8 +23,12 @@
         ## It's kind of ugly that we need to know about Union Types, but this
         ## is needed for syntax compatibility.  Maybe someday we'll all just do
         ## Or[Str,Str,Int]
-        
-        my @tc = grep {blessed $_} @_;
+
+	my @tc = map {
+	    blessed $_ ? $_ :
+	      Moose::Util::TypeConstraints::find_or_parse_type_constraint($_)
+	} @_;
+
         my $union = Moose::Meta::TypeConstraint::Union->new(type_constraints=>\@tc);
         return Moose::Util::TypeConstraints::register_type_constraint($union);
     },