From: john napiorkowski Date: Fri, 22 May 2009 19:52:59 +0000 (-0400) Subject: updated makefile requirements and got the basics of coercions in place X-Git-Tag: 0.01~12 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Dependent.git;a=commitdiff_plain;h=5ae5d765a87ca6108bc3a081d41df513867837bf updated makefile requirements and got the basics of coercions in place --- diff --git a/lib/MooseX/Dependent/Meta/TypeConstraint/Dependent.pm b/lib/MooseX/Dependent/Meta/TypeConstraint/Dependent.pm index 79ca107..12003dc 100644 --- a/lib/MooseX/Dependent/Meta/TypeConstraint/Dependent.pm +++ b/lib/MooseX/Dependent/Meta/TypeConstraint/Dependent.pm @@ -297,7 +297,7 @@ around 'coerce' => sub { my ($coerce, $self, @args) = @_; if($self->coercion) { if(my $value = $self->$coerce(@args)) { - return $value; + return $value if defined $value; } } return $self->parent->coerce(@args);