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 9a558c363fed99511fc2cbf042b776d14e3427e9
Author: David Golden <dagol...@cpan.org>
Date: Thu Aug 15 22:57:11 2013 -0400
croak instead of die if accessors can't be set up
---
lib/Class/Tiny.pm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lib/Class/Tiny.pm b/lib/Class/Tiny.pm
index 2963af9..09f8f11 100644
--- a/lib/Class/Tiny.pm
+++ b/lib/Class/Tiny.pm
@@ -17,6 +17,7 @@ else {
my %CLASS_ATTRIBUTES;
+# adapted from Object::Tiny and Object::Tiny::RW
sub import {
no strict 'refs';
my $class = shift;
@@ -30,7 +31,7 @@ sub import {
or Carp::croak "Invalid accessor name '$_'";
"sub $_ { if (\@_ > 1) { \$_[0]->{$_} = \$_[1] } ; return \$_[0]->{$_}
}\n"
} @attr;
- die "Failed to generate $pkg" if $@;
+ Carp::croak( "Failed to generate $pkg" ) if $@;
return 1;
}
--
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
