[Moose-commits] r7870 - in MooseX-Types-Dependent/trunk: lib/MooseX/Meta/TypeConstraint t

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

Author: jnapiorkowski
Date: 2009-03-29 20:18:00 -0700 (Sun, 29 Mar 2009)
New Revision: 7870

Modified:
   MooseX-Types-Dependent/trunk/lib/MooseX/Meta/TypeConstraint/Dependent.pm
   MooseX-Types-Dependent/trunk/t/02-depending.t
Log:
fixed some tabs, a bit of docs, last checkin for the evening

Modified: MooseX-Types-Dependent/trunk/lib/MooseX/Meta/TypeConstraint/Dependent.pm
===================================================================
--- MooseX-Types-Dependent/trunk/lib/MooseX/Meta/TypeConstraint/Dependent.pm	2009-03-30 00:23:31 UTC (rev 7869)
+++ MooseX-Types-Dependent/trunk/lib/MooseX/Meta/TypeConstraint/Dependent.pm	2009-03-30 03:18:00 UTC (rev 7870)
@@ -63,6 +63,9 @@
 Exercise some sanity, this should be limited to actual comparision operations,
 not as a sneaky way to mess with the constraining value.
 
+This should return a Bool, suitable for ->check (That is true for valid, false
+for fail).
+
 =cut
 
 has 'comparison_callback' => (

Modified: MooseX-Types-Dependent/trunk/t/02-depending.t
===================================================================
--- MooseX-Types-Dependent/trunk/t/02-depending.t	2009-03-30 00:23:31 UTC (rev 7869)
+++ MooseX-Types-Dependent/trunk/t/02-depending.t	2009-03-30 03:18:00 UTC (rev 7870)
@@ -16,8 +16,8 @@
       as Depending[
         Int,
         sub {
-			my ($dependent_val, $constraining_val) = @_;
-			return ($dependent_val > $constraining_val) ? 1:undef;
+            my ($dependent_val, $constraining_val) = @_;
+            return ($dependent_val > $constraining_val) ? 1:undef;
         },
         Int,
       ];