r42601 - in /branches/upstream/libmoosex-types-perl/current: Changes META.yml lib/MooseX/Types.pm t/21_coerce_parameterized_types.t

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

Author: jawnsy-guest
Date: Sun Aug 23 22:45:06 2009
New Revision: 42601

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=42601
Log:
[svn-upgrade] Integrating new upstream version, libmoosex-types-perl (0.19)

Modified:
    branches/upstream/libmoosex-types-perl/current/Changes
    branches/upstream/libmoosex-types-perl/current/META.yml
    branches/upstream/libmoosex-types-perl/current/lib/MooseX/Types.pm
    branches/upstream/libmoosex-types-perl/current/t/21_coerce_parameterized_types.t

Modified: branches/upstream/libmoosex-types-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-types-perl/current/Changes?rev=42601&op=diff
==============================================================================
--- branches/upstream/libmoosex-types-perl/current/Changes (original)
+++ branches/upstream/libmoosex-types-perl/current/Changes Sun Aug 23 22:45:06 2009
@@ -1,4 +1,10 @@
 Revision history for MooseX-Types
+
+0.19    Sun Aug 23 15:03:02 EDT 2009
+        - un-fix coercions on parameterized types, since it broke
+          MooseX::Method::Signatures, as well as any other code that relied on
+          new type constraint objects being generated each time a type was
+          parameterized (hdp).
 
 0.18    Sat Aug 22 12:50:42 EDT 2009
         - fix coercions on parameterized types (Hans Dieter Pearcey).

Modified: branches/upstream/libmoosex-types-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-types-perl/current/META.yml?rev=42601&op=diff
==============================================================================
--- branches/upstream/libmoosex-types-perl/current/META.yml (original)
+++ branches/upstream/libmoosex-types-perl/current/META.yml Sun Aug 23 22:45:06 2009
@@ -24,7 +24,7 @@
 provides:
   MooseX::Types:
     file: lib/MooseX/Types.pm
-    version: 0.18
+    version: 0.19
   MooseX::Types::Base:
     file: lib/MooseX/Types/Base.pm
   MooseX::Types::CheckedUtilExports:
@@ -52,4 +52,4 @@
   perl: 5.8.0
 resources:
   license: http://dev.perl.org/licenses/
-version: 0.18
+version: 0.19

Modified: branches/upstream/libmoosex-types-perl/current/lib/MooseX/Types.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-types-perl/current/lib/MooseX/Types.pm?rev=42601&op=diff
==============================================================================
--- branches/upstream/libmoosex-types-perl/current/lib/MooseX/Types.pm (original)
+++ branches/upstream/libmoosex-types-perl/current/lib/MooseX/Types.pm Sun Aug 23 22:45:06 2009
@@ -20,7 +20,7 @@
 use namespace::clean -except => [qw( meta )];
 
 use 5.008;
-our $VERSION = '0.18';
+our $VERSION = '0.19';
 my $UndefMsg = q{Action for type '%s' not yet defined in library '%s'};
 
 =head1 SYNOPSIS
@@ -431,11 +431,13 @@
     # It's obnoxious to have to parameterize before looking for the TC, but the
     # alternative is to hard-code the assumption that the name is
     # "$name[$args[0]]", which would be worse.
-    if (my $existing =
-        Moose::Util::TypeConstraints::find_type_constraint($parameterized->name)) {
-        return $existing;
-    }
-    Moose::Util::TypeConstraints::register_type_constraint($parameterized);
+    # This breaks MXMS, unfortunately, which relies on things like Tuple[...]
+    # creating new type objects each time.
+    # if (my $existing =
+    #     Moose::Util::TypeConstraints::find_type_constraint($parameterized->name)) {
+    #     return $existing;
+    # }
+    # Moose::Util::TypeConstraints::register_type_constraint($parameterized);
     return $parameterized;
 }
 

Modified: branches/upstream/libmoosex-types-perl/current/t/21_coerce_parameterized_types.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-types-perl/current/t/21_coerce_parameterized_types.t?rev=42601&op=diff
==============================================================================
--- branches/upstream/libmoosex-types-perl/current/t/21_coerce_parameterized_types.t (original)
+++ branches/upstream/libmoosex-types-perl/current/t/21_coerce_parameterized_types.t Sun Aug 23 22:45:06 2009
@@ -45,8 +45,10 @@
 
 my $instance = AClass->new;
 
+{ local $TODO = "see comments in MooseX::Types->create_arged_...";
 lives_ok { $instance->parameterized('foo') }
     'coercion applied to parameterized type';
+}
 
 lives_ok { $instance->subtype_parameterized('foo') }
     'coercion applied to subtype';