diff options
-rw-r--r-- | lib/MooseX/AlwaysCoerce.pm | 3 |
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; }; |