@@ -1,10 +1,17 @@ -use 5.006; #warnings.pm; +use 5.10.0; use strict; use warnings; +use Getopt::Long; use Module::Build; +GetOptions( + upgrade => \my $opt_upgrade, +); + +$opt_upgrade ||= $ENV{TASK_UPGRADE}; + my $builder = Module::Build->new( module_name => 'Task::BeLike::YANICK', license => 'perl', @@ -38,9 +45,15 @@ sub get_requirements { next unless /^=item \s+/x; my ( $module, $version ) = split ' ' => $'; - $module =~ s/^ L< (.*?) > $/$1/x; + if ( $opt_upgrade and not $version ) { + require CPANPLUS::Backend; + state $cb = CPANPLUS::Backend->new; + + $version = $cb->module_tree( $module )->package_version; + } + $requirements{$module} = $version || 0; } Build.PL @@ -16,6 +16,12 @@ Task::BeLike::YANICK - like Yanick? Be like Yanick! This L<Task> module installs the modules that I use on a regular basis. +Wait, there is more! +It can also B<update> the modules that I use on a regular basis! +To do that, do + + TASK_UPGRADE=1 cpan -f Task::BeLike::YANICK + =head1 MODULES INSTALLED BY THIS TASK =head2 Object-Oriented Frameworks lib/Task/BeLike/YANICK.pm 23684cf273c9c265bebba1af096d0ea0ebef8f9c Yanick Champoux yanick@babyl.dyndns.org http://github.com/yanick/Task-BeLike-YANICK/commit/563898785d5a39af66c6d5ad3a296dfb7568bb3e 563898785d5a39af66c6d5ad3a296dfb7568bb3e 2009-10-06T16:51:25-07:00 2009-10-06T16:50:13-07:00 Adding ability to upgrade dependencies with TASK_UPGRADE 3a90ed8d0518d3bbc548801d1da8a59b2bfc7880 Yanick Champoux yanick@babyl.dyndns.org