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

[gitmo/MooseX-Dependent.git] / lib / MooseX / Meta / TypeConstraint / Dependent.pm

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);
     };
 };