properly supporting a where clause in the suger example and proof you can customize...

diff --git a/lib/MooseX/Meta/TypeConstraint/Dependent.pm b/lib/MooseX/Meta/TypeConstraint/Dependent.pm
index 5219aba..ae6ca56 100644 (file)
--- a/lib/MooseX/Meta/TypeConstraint/Dependent.pm
+++ b/lib/MooseX/Meta/TypeConstraint/Dependent.pm
@@ -241,11 +241,13 @@ around 'create_child_type' => sub {
 
 We modify constraint so that the value pass is automatically dereferenced
 
+=cut
+
 around 'constraint' => sub {
     my ($constraint, $self) = @_;
     return sub {
         my ($arg) = @_;
-        $self->$constraint->(@$arg);
+        $self->$constraint->($arg);
     };
 };
 

diff --git a/t/02-depending.t b/t/02-depending.t
index 6b4ac1a..72d799b 100644 (file)
--- a/t/02-depending.t
+++ b/t/02-depending.t
@@ -61,7 +61,7 @@ use Test::More tests=>23; {
     ok UniqueInt->check([2,[3..6]]), 'PASS unique in set';
     ok UniqueInt->check([3,[100..110]]), 'PASS unique in set';
        
-       ## Same as above, with suger
+       ## Same as above, with sugar
     subtype UniqueInt2,
          as depending {
             my ($dependent_int, $constraining_arrayref) = @_;