fixed some tabs, a bit of docs, last checkin for the evening
John Napiorkowski [Mon, 30 Mar 2009 03:18:00 +0000 (03:18 +0000)]
lib/MooseX/Meta/TypeConstraint/Dependent.pm
t/02-depending.t

index 4080494..83d140c 100644 (file)
@@ -63,6 +63,9 @@ However, the 'where' clause only get's the check value.
 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' => (
index 0305d38..01ed608 100644 (file)
@@ -16,8 +16,8 @@ use Test::More tests=>15; {
       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,
       ];