fixed some tabs, a bit of docs, last checkin for the evening

[gitmo/MooseX-Dependent.git] / t / 02-depending.t

diff --git a/t/02-depending.t b/t/02-depending.t
index 9fe2e33..01ed608 100644 (file)
--- 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,
       ];
@@ -37,6 +37,8 @@ use Test::More tests=>15; {
         Int,
         sub {
             my ($dependent_int, $constraining_arrayref) = @_;
+            ## Yes, this is braindead way to check for uniques in an array
+            ## but this doesn't require additional dependencies.
             (grep { $_ == $dependent_int} @$constraining_arrayref) ? 0:1
         },
         ArrayRef[Int],