This is an automated email from the git hooks/post-receive script.
gregoa pushed a commit to annotated tag release-0.001
in repository libclass-tiny-perl.
commit 44a857948e9cf7ddc9928cd3e5985196159d91ff
Author: David Golden <dagol...@cpan.org>
Date: Fri Aug 16 10:47:22 2013 -0400
minor optimization
---
lib/Class/Tiny.pm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lib/Class/Tiny.pm b/lib/Class/Tiny.pm
index c4e63b3..45d195e 100644
--- a/lib/Class/Tiny.pm
+++ b/lib/Class/Tiny.pm
@@ -34,7 +34,7 @@ sub import {
"package $pkg;",
( $child ? () : "\@${pkg}::ISA = 'Class::Tiny';" ),
map {
- "sub $_ { if (\@_ > 1) { \$_[0]->{$_} = \$_[1] } ; return \$_[0]->{$_}
}\n"
+ "sub $_ { return \@_ == 1 ? \$_[0]->{$_} : (\$_[0]->{$_} = \$_[1]) }\n"
} grep { ! *{"$pkg\::$_"}{CODE} } @attr;
#>>>
Carp::croak("Failed to generate $pkg") if $@;
--
Alioth's /usr/local/bin/git-commit-notice on
/srv/git.debian.org/git/pkg-perl/packages/libclass-tiny-perl.git
_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
