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 45cb44eda55ca55fe46f082f440d9473f91321b1 Author: Kent Fredric <[email protected]> Date: Sat Apr 5 17:35:26 2014 +1300 Move imports forward --- lib/Dist/Zilla/Role/Bootstrap.pm | 38 +++++++------------------------------- 1 file changed, 7 insertions(+), 31 deletions(-) diff --git a/lib/Dist/Zilla/Role/Bootstrap.pm b/lib/Dist/Zilla/Role/Bootstrap.pm index 348f62d..0738a0d 100644 --- a/lib/Dist/Zilla/Role/Bootstrap.pm +++ b/lib/Dist/Zilla/Role/Bootstrap.pm @@ -9,8 +9,10 @@ package Dist::Zilla::Role::Bootstrap; # AUTHORITY -use Moose::Role; +use Moose::Role qw( with has around requires ); +use List::UtilsBy qw( max_by nmax_by ); use MooseX::AttributeShortcuts 0.015; #Min version for builder => sub {} +use version qw(); =begin MetaPOD::JSON v1.1.0 @@ -51,32 +53,6 @@ For users of plugins: with 'Dist::Zilla::Role::Plugin'; -=p_func C<_max_by> - -Proxy for L<< C<List::UtilsBy::B<max_by>>|List::UtilsBy/max_by >> - -=cut - -sub _max_by(&@) { - no warnings 'redefine'; - require List::UtilsBy; - *_max_by = \&List::UtilsBy::max_by; - goto &List::UtilsBy::max_by; -} - -=p_func C<_nmax_by> - -Proxy for L<< C<List::UtilsBy::B<nmax_by>>|List::UtilsBy/nmax_by >> - -=cut - -sub _nmax_by(&@) { - no warnings 'redefine'; - require List::UtilsBy; - *_nmax_by = \&List::UtilsBy::nmax_by; - goto &List::UtilsBy::nmax_by; -} - around 'dump_config' => sub { my ( $orig, $self, @args ) = @_; my $config = $self->$orig(@args); @@ -200,8 +176,8 @@ has try_built_method => ( =cut sub _pick_latest_mtime { - my ( $self, @candidates ) = @_; - return _max_by { $_->stat->mtime } @candidates; + my ( undef, @candidates ) = @_; + return max_by { $_->stat->mtime } @candidates; } =p_method C<_get_candidate_version> @@ -220,9 +196,9 @@ sub _get_candidate_version { if ( $candidate->basename =~ /\A\Q$distname\E-(.+\z)/msx ) { my $version = $1; $version =~ s/-TRIAL\z//msx; - require version; return version->parse($version); } + } =p_method C<_pick_latest_parseversion> @@ -235,7 +211,7 @@ sub _get_candidate_version { sub _pick_latest_parseversion { my ( $self, @candidates ) = @_; - return _max_by { $self->_get_candidate_version($_) } @candidates; + return max_by { $self->_get_candidate_version($_) } @candidates; } my (%methods) = ( -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdist-zilla-role-bootstrap-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
