[libdist-zilla-role-bootstrap-perl] 07/16: Variable name cleanup
Axel Beckert
abe at deuxchevaux.org
Sat Aug 8 11:59:01 UTC 2015
This is an automated email from the git hooks/post-receive script.
abe pushed a commit to annotated tag 1.000000-source
in repository libdist-zilla-role-bootstrap-perl.
commit b47f32288a8922c32e9e790e958ce8cf7764b602
Author: Kent Fredric <kentfredric at gmail.com>
Date: Sat Apr 5 17:35:51 2014 +1300
Variable name cleanup
---
lib/Dist/Zilla/Role/Bootstrap.pm | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/lib/Dist/Zilla/Role/Bootstrap.pm b/lib/Dist/Zilla/Role/Bootstrap.pm
index 0738a0d..37314a7 100644
--- a/lib/Dist/Zilla/Role/Bootstrap.pm
+++ b/lib/Dist/Zilla/Role/Bootstrap.pm
@@ -57,15 +57,16 @@ around 'dump_config' => sub {
my ( $orig, $self, @args ) = @_;
my $config = $self->$orig(@args);
my $localconf = {};
- for my $var (qw( try_built try_built_method fallback distname )) {
- my $pred = 'has_' . $var;
+ for my $attribute (qw( try_built try_built_method fallback distname )) {
+ my $pred = 'has_' . $attribute;
if ( $self->can($pred) ) {
next unless $self->$pred();
}
- if ( $self->can($var) ) {
- $localconf->{$var} = $self->$var();
+ if ( $self->can($attribute) ) {
+ $localconf->{$attribute} = $self->$attribute();
}
}
+
$config->{ q{} . __PACKAGE__ } = $localconf;
return $config;
};
@@ -289,7 +290,7 @@ Internal: Used to perform the final step of injecting library paths into C<@INC>
=cut
sub _add_inc {
- my ( $self, $import ) = @_;
+ my ( undef, $import ) = @_;
if ( not ref $import ) {
require lib;
return lib->import($import);
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdist-zilla-role-bootstrap-perl.git
More information about the Pkg-perl-cvs-commits
mailing list