view release on metacpan or  search on metacpan

deptree  view on Meta::CPAN

$Module::Depends::Tree::mirror  = 'file://Users/andy/minicpan';

my %options = (
    'workdir:s' => \$Module::Depends::Tree::workdir,
    'mirror:s' =>  \$Module::Depends::Tree::mirror,
    'help' => sub { die '--workdir and --mirror are the only two options now' },
);
GetOptions( %options ) or die "deptree --help for options.\n";

MAKE_TEMP: {
    local @ARGV = ( $Module::Depends::Tree::workdir );
    mkpath;
}

MAIN: {
    my @topdeps;

    print 'Dependency tree created ', scalar localtime, "\n";
    print "Created with Module::Depends::Tree $Module::Depends::Tree::VERSION\n";

    print join( ' ', '$', $0, @ARGV ), "\n\n";