From: Rafael Kitover <rkitover@cpan.org>
Date: Sun, 1 Aug 2010 05:52:10 +0000 (-0400)
Subject: respect value of coerce not only if 0
X-Git-Tag: 0.07~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=90d2721a0cfab188a9d7880d47c9fcd4f90413a2;p=gitmo%2FMooseX-AlwaysCoerce.git

respect value of coerce not only if 0
---

diff --git a/lib/MooseX/AlwaysCoerce.pm b/lib/MooseX/AlwaysCoerce.pm
index d676e25..dd00ba5 100644
--- a/lib/MooseX/AlwaysCoerce.pm
+++ b/lib/MooseX/AlwaysCoerce.pm
@@ -60,7 +60,8 @@ Use C<< coerce => 0 >> to disable a coercion explicitly.
 
         my $current_val = $self->$orig(@_);
 
-        return 0 if defined $current_val && $current_val == 0;
+        return $current_val if defined $current_val;
+
         return 1 if $self->type_constraint->has_coercion;
         return 0;
     };