diff options
| author | Rafael Kitover <rkitover@cpan.org> | 2010-08-01 01:52:10 -0400 |
|---|---|---|
| committer | Rafael Kitover <rkitover@cpan.org> | 2010-08-01 01:52:10 -0400 |
| commit | 90d2721a0cfab188a9d7880d47c9fcd4f90413a2 (patch) | |
| tree | c6dd89807f7e56153e714a38ea5c62b0e0825022 | |
| parent | 62e7cdefc512bba617639e506ba5f362107b6eb7 (diff) | |
| download | mx-alwayscoerce-90d2721a0cfab188a9d7880d47c9fcd4f90413a2.tar.gz mx-alwayscoerce-90d2721a0cfab188a9d7880d47c9fcd4f90413a2.zip | |
respect value of coerce not only if 0
| -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; }; |