6 use CPAN::FindDependencies qw( finddeps );
8 use List::AllUtils qw( any );
14 package CPAN::FindDependencies;
16 no warnings 'redefine';
17 # The real function assumes that if you provide an argument it's a
18 # local file, not a URI.
23 die(__PACKAGE__.": Couldn't fetch 02packages index file\n");
29 # If this isn't fetched fresh each time, then CPAN::Mini gets
30 # confused (maybe it's a timestamp issue because of git?)
31 unlink './moosepan/modules/02packages.details.txt.gz'
35 = grep { is_real_dep($_) }
38 'http://mirrors.kernel.org/cpan/modules/02packages.details.txt.gz'
41 my @distros = map { $_->distribution() } @deps;
43 my $filter_sub = sub {
44 return !any { $_[0] eq $_ } @distros;
47 CPAN::Mini->update_mirror(
48 remote => 'http://mirrors.kernel.org/cpan/',
49 local => './moosepan',
50 path_filters => $filter_sub,
56 my %skip_deps = map { $_ => 1 } qw(
71 my $min_perl = version->new('5.8.5');
75 # Include this just to make sure the user gets a version with
77 return 1 if $dep->name eq 'Scalar::Util';
79 return if $skip_deps{ $dep->name() };
81 my $perl = Module::CoreList->first_release( $dep->name() );
83 return if defined $perl && version->new($perl) le $min_perl;