projects
/
gitmo/MooseX-AlwaysCoerce.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
(parent:
62e7cde
)
respect value of coerce not only if 0
Rafael Kitover [Sun, 1 Aug 2010 05:52:10 +0000 (
01:52
-0400)]
lib/MooseX/AlwaysCoerce.pm
patch
|
blob
|
blame
|
history
diff --git
a/lib/MooseX/AlwaysCoerce.pm
b/lib/MooseX/AlwaysCoerce.pm
index
d676e25
..
dd00ba5
100644
(file)
--- 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;
};