You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
43 lines
1.0 KiB
43 lines
1.0 KiB
#!/usr/bin/env perl
|
|
#
|
|
# Go and pull out of DBIx::Class::Optional::Dependencies all the "optional"
|
|
# and testing deps that aren't hardcoded in Makefile.PL.
|
|
#
|
|
# Chris Weyl <cweyl@alumni.drew.edu> 2010
|
|
|
|
use 5.010;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
# use the latest...
|
|
use lib "$ARGV[0]/lib";
|
|
use DBIx::Class::Optional::Dependencies;
|
|
|
|
# for use starting with DBIC 0.08120
|
|
#my %reqs =
|
|
# %{ DBIx::Class::Optional::Dependencies::_all_optional_requirements() };
|
|
#
|
|
# output our found deps :)
|
|
#say '# from DBIx::Class::Optional::Dependencies';
|
|
#say "BuildRequires: perl($_)" . ($reqs{$_} ? " >= $reqs{$_}" : q{})
|
|
# for sort keys %reqs;
|
|
|
|
my @groups = qw{ core cdbicompat deploy admin replicated };
|
|
|
|
sub _reqs { %{ DBIx::Class::Optional::Dependencies->req_list_for(@_) } }
|
|
|
|
for my $group (@groups) {
|
|
|
|
print "# optional deps for group: $group\n";
|
|
my %reqs = _reqs($group);
|
|
|
|
for my $dep (sort keys %reqs) {
|
|
|
|
my $line = "BuildRequires: perl($dep)";
|
|
$line .= " >= $reqs{$dep}" if $reqs{$dep};
|
|
print "$line\n";
|
|
}
|
|
}
|
|
|