[Moose-commits] r7881 - MooseX-Types-Dependent/trunk/lib/MooseX/Meta/TypeConstraint

[jnapiorkowski at code2.0beta.co.uk]

Author: jnapiorkowski
Date: 2009-04-01 09:18:40 -0700 (Wed, 01 Apr 2009)
New Revision: 7881

Modified:
   MooseX-Types-Dependent/trunk/lib/MooseX/Meta/TypeConstraint/Dependent.pm
Log:
changed around to override since we are actually overriding this validation method

Modified: MooseX-Types-Dependent/trunk/lib/MooseX/Meta/TypeConstraint/Dependent.pm
===================================================================
--- MooseX-Types-Dependent/trunk/lib/MooseX/Meta/TypeConstraint/Dependent.pm	2009-04-01 16:14:03 UTC (rev 7880)
+++ MooseX-Types-Dependent/trunk/lib/MooseX/Meta/TypeConstraint/Dependent.pm	2009-04-01 16:18:40 UTC (rev 7881)
@@ -112,12 +112,12 @@
 
 =head2 validate
 
-We intercept validate in order to custom process the message
+We intercept validate in order to custom process the message.
 
 =cut
 
-around 'validate' => sub {
-    my ($validate, $self, @args) = @_;
+override 'validate' => sub {
+    my ($self, @args) = @_;
     my $compiled_type_constraint = $self->_compiled_type_constraint;
     my $message = bless {message=>undef}, 'MooseX::Types::Dependent::Message';
     my $result = $compiled_type_constraint->(@args, $message);