From: John Napiorkowski Date: Mon, 30 Mar 2009 03:18:00 +0000 (+0000) Subject: fixed some tabs, a bit of docs, last checkin for the evening X-Git-Tag: 0.01~43 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=01a1242466a38996ada4ab650121ce73ee277889;p=gitmo%2FMooseX-Dependent.git fixed some tabs, a bit of docs, last checkin for the evening --- diff --git a/lib/MooseX/Meta/TypeConstraint/Dependent.pm b/lib/MooseX/Meta/TypeConstraint/Dependent.pm index 4080494..83d140c 100644 --- a/lib/MooseX/Meta/TypeConstraint/Dependent.pm +++ b/lib/MooseX/Meta/TypeConstraint/Dependent.pm @@ -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' => ( diff --git a/t/02-depending.t b/t/02-depending.t index 0305d38..01ed608 100644 --- a/t/02-depending.t +++ b/t/02-depending.t @@ -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, ];