[Moose-commits] r7853 - in MooseX-Types-Structured/trunk: . lib/MooseX/Types t

[jnapiorkowski at code2.0beta.co.uk]

Author: jnapiorkowski
Date: 2009-03-16 16:55:36 -0700 (Mon, 16 Mar 2009)
New Revision: 7853

Modified:
   MooseX-Types-Structured/trunk/Changes
   MooseX-Types-Structured/trunk/lib/MooseX/Types/Structured.pm
   MooseX-Types-Structured/trunk/t/10-recursion.t
Log:
changed the recursion test to reflect subtype syntac clarification

Modified: MooseX-Types-Structured/trunk/Changes
===================================================================
--- MooseX-Types-Structured/trunk/Changes	2009-03-14 03:18:45 UTC (rev 7852)
+++ MooseX-Types-Structured/trunk/Changes	2009-03-16 23:55:36 UTC (rev 7853)
@@ -1,5 +1,9 @@
 Revision history for MooseX-Types-Structured
 
+0.09    07 March 2009
+        - I guess we don't support the "subtype MyType, [TypeConstraint]" syntax
+          anymore.  Changed the recursion test to reflect that, which should fix
+          my 100% fail rate :)
 0.08    06 March 2009
         - New Feature: slurpy method for when you want a structured type
           constraint that allows trailing arguments of indeterminate length.

Modified: MooseX-Types-Structured/trunk/lib/MooseX/Types/Structured.pm
===================================================================
--- MooseX-Types-Structured/trunk/lib/MooseX/Types/Structured.pm	2009-03-14 03:18:45 UTC (rev 7852)
+++ MooseX-Types-Structured/trunk/lib/MooseX/Types/Structured.pm	2009-03-16 23:55:36 UTC (rev 7853)
@@ -7,7 +7,7 @@
 use MooseX::Types -declare => [qw(Dict Tuple Optional)];
 use Sub::Exporter -setup => { exports => [ qw(Dict Tuple Optional slurpy) ] };
 
-our $VERSION = '0.08';
+our $VERSION = '0.09';
 our $AUTHORITY = 'cpan:JJNAPIORK';
 
 =head1 NAME

Modified: MooseX-Types-Structured/trunk/t/10-recursion.t
===================================================================
--- MooseX-Types-Structured/trunk/t/10-recursion.t	2009-03-14 03:18:45 UTC (rev 7852)
+++ MooseX-Types-Structured/trunk/t/10-recursion.t	2009-03-16 23:55:36 UTC (rev 7853)
@@ -31,13 +31,13 @@
 
     subtype Var()   => as ScalarRef;
     subtype Const() => as Int | Str;
-    subtype Pair()  => Tuple[ Expr, Expr ];
+    subtype Pair()  => as Tuple[ Expr, Expr ];
 
     enum Op() => qw[ + - ];
 
-    subtype BinOp()  => Tuple[ Expr, Op, Expr ];
-    subtype Lambda() => Tuple[ Var, Expr ];
-    subtype App()    => Tuple[ Lambda, Expr ];
+    subtype BinOp()  => as Tuple[ Expr, Op, Expr ];
+    subtype Lambda() => as Tuple[ Var, Expr ];
+    subtype App()    => as Tuple[ Lambda, Expr ];
     subtype Expr()   => as Var | Const | Pair | BinOp | Lambda | App;
 
     sub match {