From 90d2721a0cfab188a9d7880d47c9fcd4f90413a2 Mon Sep 17 00:00:00 2001
From: Rafael Kitover <rkitover@cpan.org>
Date: Sun, 1 Aug 2010 01:52:10 -0400
Subject: respect value of coerce not only if 0

---
 lib/MooseX/AlwaysCoerce.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib')

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;
     };
-- 
cgit v1.2.3