perl-DBIx-Class/find_optional_deps

#!/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;

exit;

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";
    }
}