6 use CPAN::FindDependencies qw( finddeps );
8 use List::AllUtils qw( any );
14 my @deps = grep { is_real_dep($_) } finddeps('Moose');
16 my @distros = map { $_->distribution() } @deps;
18 my $filter_sub = sub { return ! any { $_[0] eq $_ } @distros };
20 CPAN::Mini->update_mirror(
21 remote => 'ftp://mirrors2.kernel.org/pub/CPAN/',
23 path_filters => $filter_sub,
29 my %skip_deps = map { $_ => 1 } qw(
44 my $min_perl = version->new('5.8.5');
48 # Include this just to make sure the user gets a version with
50 return 1 if $dep->name eq 'Scalar::Util';
52 return if $skip_deps{ $dep->name() };
54 my $perl = Module::CoreList->first_release( $dep->name() );
56 return if defined $perl && version->new($perl) le $min_perl;