#!/usr/bin/perl

# Copyright 2012, Paul Johnson (paul@pjcj.net)

# This software is free.  It is licensed under the same terms as Perl itself.

# The latest version of this software should be available from my homepage:
# http://www.pjcj.net

use strict;
use warnings;

my $modules = <<EOM;

    # Modules with many dependencies
    Task::Kensho
    Task::Plack
    Task::Catalyst
    Task::Dancer
    Mojolicious
    Task::Moose
    Task::Dist::Zilla
    Task::CPAN::SmokeBox
    Task::Perl::Critic
    Task::Toolchain::Test
    Task::Template::Benchmark
    MojoMojo
    Jifty
    Bot::BasicBot
    Dist::Zilla

    # Stuff for Devel::Cover
    # Devel::Cover
    .
    Parallel::Iterator
    Test::Pod::Coverage
    PPI::HTML

    # My stuff
    Gedcom
    Shell::Source

    # Stuff with interest for Devel::Cover
    NetAddr::IP

    # There's going to be repetition down here

    # Modules with many dependents
    Exporter
    Text::Tabs
    Test::Harness
    Pod::Escapes
    Pod::Simple
    IO
    Getopt::Long
    Pod::Parser
    ExtUtils::MakeMaker
    Test::Simple
    ExtUtils::Manifest
    constant
    Test
    Data::Dumper
    File::Temp
    ExtUtils::Install
    Text::ParseWords
    ExtUtils::CBuilder
    ExtUtils::ParseXS
    Module::Build
    File::Path
    XSLoader
    MIME::Base64
    Digest
    Digest::MD5
    Sub::Uplevel
    URI
    Test::Exception
    HTML::Tagset
    HTML::Parser
    Compress::Raw::Zlib
    Compress::Raw::Bzip2
    Storable
    base
    List::MoreUtils
    Params::Util
    Task::Weaken
    Sub::Install
    Data::OptList
    Sub::Exporter
    Test::Tester
    Test::NoWarnings
    Attribute::Handlers
    Class::Accessor
    Algorithm::C3
    Class::C3
    Sub::Name
    MRO::Compat
    Time::HiRes
    Params::Validate
    Try::Tiny
    Scope::Guard
    Package::Stash
    version
    Tree::DAG_Node
    Test::Warn
    Devel::GlobalDestruction
    Class::MOP
    Moose
    Class::Data::Inheritable
    Test::Deep
    Carp::Clan
    Module::Pluggable
    Variable::Magic
    B::Hooks::EndOfScope
    Sub::Identify
    namespace::clean
    Time::Local
    DBI
    Text::Balanced
    Class::Inspector
    Test::Pod
    Encode
    Path::Class
    Digest::SHA1
    FCGI
    CGI
    MooseX::Types
    XML::NamespaceSupport
    XML::SAX
    Class::Singleton
    Clone
    DateTime::TimeZone
    DateTime::Locale
    YAML
    DateTime
    namespace::autoclean
    IO::String
    Algorithm::Diff
    File::Slurp
    Devel::StackTrace

    # Modules which should not fail
    IO
    List::MoreUtils
    Test::Harness
    ExtUtils::MakeMaker
    File::Path
    XML::Parser
    Test::Simple
    HTML::Tree
    Storable
    Net::IP
    DB_File
    XML::LibXML
    Time::HiRes
    Exporter
    Pod::Escapes
    ExtUtils::ParseXS
    Module::Build
    Pod::Parser
    Data::Dumper
    ExtUtils::Install
    IO::Tty
    XML::SAX
    Class::ErrorHandler
    URI
    HTML::Template
    Compress::Raw::Zlib
    Net::DNS
    Test::Pod::Coverage
    XSLoader
    version
    URI::Fetch
    Pod::Simple
    constant
    Test
    File::Temp
    Template::Toolkit
    Cache::Cache
    Feed::Find
    HTML::Tagset
    ExtUtils::PkgConfig
    Devel::GlobalDestruction
    PadWalker
    Sub::Name
    Encode
    Test::Base
    Class::DBI::Plugin::Type
    Sub::Identify
    Sub::Uplevel
    Params::Validate
    POE
    Class::Singleton
    Proc::ProcessTable
    Compress::Raw::Bzip2
    Class::MOP
    HTTP::Server::Simple
    Sub::Exporter
    Fuse
    File::HomeDir
    Bot::BasicBot
    # URI::Find::Simple
    base
    # GD
    WWW::Mechanize
    Test::Most
    Sys::Syslog
    File::Slurp
    Tree::DAG_Node
    FCGI
    Params::Util
    Devel::Peek
    DateTime::Format::Mail
    Spiffy
    HTML::TableExtract
    DBD::SQLite
    Class::Accessor::Chained
    DBIx::ContextualFetch
    Test::Tester
    Variable::Magic
    AppConfig
    Class::Accessor
    Want
    XML::Simple
    IO::All
    Number::Format
    Term::ReadKey
    DBI
    Test::Exception

    # Web stuff
    Authen::Passphrase::BlowfishCrypt
    Carp::Always::Color
    App::cpanoutdated
    Dancer
    Dancer::Logger::Log4perl
    Dancer::Plugin::Auth::Twitter
    Dancer::Plugin::Database
    Dancer::Plugin::DBIC
    Data::Printer
    DBD::SQLite
    DBIx::Class::Schema::Loader
    DBIx::Class::TimeStamp
    DBIx::Log4perl
    Exporter::Lite
    Log::Log4perl
    JSON
    Module::Refresh
    Moose
    MooseX::Declare
    MooseX::StrictConstructor
    MooseX::Types::DateTime::MoreCoercions
    Plack::Middleware::Debug
    Plack::Middleware::Debug::Dancer::Version
    Plack::Middleware::ReverseProxy
    Plack::Middleware::Debug::Dancer::TemplateVariables
    SQL::Translator
    Starman
    Template
    Test::More
    YAML

    # Maths stuff
    Math::ODE
    Math::MatrixReal

    # Other stuff
    Image::PNG

EOM

my @opts = @ARGV;

my @modules = grep /\S/, grep !/^ +#/, split /\n/, $modules;
s/^ +//, s/ +$// for @modules;
my %m; @modules = grep !$m{$_}++, @modules;

for my $mod (sort @modules)
{
    system "cpanm @opts $mod";
}