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 2978604e8ff46e69798c3afea723110094a37aa3 Author: David Golden <dagol...@cpan.org> Date: Fri Aug 16 07:15:21 2013 -0400 tidy --- t/lib/Alfa.pm | 1 + t/lib/Baker.pm | 1 + t/lib/Charlie.pm | 5 +++-- 3 files changed, 5 insertions(+), 2 deletions(-) diff --git a/t/lib/Alfa.pm b/t/lib/Alfa.pm index b4f8dc8..e809ae2 100644 --- a/t/lib/Alfa.pm +++ b/t/lib/Alfa.pm @@ -1,6 +1,7 @@ use 5.008001; use strict; use warnings; + package Alfa; use Class::Tiny qw/foo bar/; diff --git a/t/lib/Baker.pm b/t/lib/Baker.pm index 0274321..db18bbe 100644 --- a/t/lib/Baker.pm +++ b/t/lib/Baker.pm @@ -1,6 +1,7 @@ use 5.008001; use strict; use warnings; + package Baker; use base 'Alfa'; diff --git a/t/lib/Charlie.pm b/t/lib/Charlie.pm index 9144eaa..0c3289e 100644 --- a/t/lib/Charlie.pm +++ b/t/lib/Charlie.pm @@ -1,6 +1,7 @@ use 5.008001; use strict; use warnings; + package Charlie; use subs qw/bar/; @@ -9,8 +10,8 @@ use Class::Tiny qw/foo bar/; sub bar { my $self = shift; - if ( @_ ) { - $self->{bar} = [ @_ ]; + if (@_) { + $self->{bar} = [@_]; } return $self->{bar}; } -- 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