[libmoox-late-perl] 04/05: support coerce=>0 too
Intrigeri
intrigeri at moszumanska.debian.org
Thu Aug 14 11:13:52 UTC 2014
This is an automated email from the git hooks/post-receive script.
intrigeri pushed a commit to tag 0.014
in repository libmoox-late-perl.
commit 67056168b58dce3b49c5897e0ee98968e11b07b2
Author: Toby Inkster <mail at tobyinkster.co.uk>
Date: Tue Jul 16 21:43:18 2013 +0100
support coerce=>0 too
---
lib/MooX/late.pm | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/lib/MooX/late.pm b/lib/MooX/late.pm
index e298590..941168d 100644
--- a/lib/MooX/late.pm
+++ b/lib/MooX/late.pm
@@ -189,7 +189,12 @@ sub _handle_coerce
$spec->{coerce} = sub { $i->coerce(@_) };
}
}
-
+
+ if (defined($c) and !ref($c) and $c eq 0)
+ {
+ delete($spec->{coerce});
+ }
+
return;
}
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmoox-late-perl.git
More information about the Pkg-perl-cvs-commits
mailing list