aboutsummaryrefslogtreecommitdiffstats
path: root/lib/MooseX/AlwaysCoerce.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/MooseX/AlwaysCoerce.pm')
-rw-r--r--lib/MooseX/AlwaysCoerce.pm3
1 files changed, 2 insertions, 1 deletions
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;
};