#!/usr/bin/perl

BEGIN { 
    $| = 1;
    $ENV{'HARNESS_VERBOSE'}   = 1;
    $ENV{'HARNESS_TIMER'}     = 1;
}

use strict;
use warnings;
use POE;
use CPAN;

POE::Session->create(
  inline_states => {
    _start => sub { 
        &inst1; 
        &inst2;
        &inst3;
        &inst4;
    }
  },   
);  
$poe_kernel->run();
exit(0);

sub inst1 {

CPAN::Shell->install(qw(
Wx::Perl::ProcessStream
Module::Manifest
Pod::Perldoc
ExtUtils::Install
App::cpanminus
Text::Balanced
File::ShareDir
Parse::ExuberantCTags
File::Copy::Recursive
Term::ReadLine
Term::ANSIColor
DBD::SQLite
ORLite
ExtUtils::Manifest
Devel::Refactor
Devel::StackTrace
Class::Data::Inheritable
Exception::Class
Test::Deep
Test::Most
PPIx::EditorTools
Format::Human::Bytes
FCGI
CGI
WWW::RobotRules
HTTP::Cookies
Net::FTP
Net::HTTP
HTTP::Daemon
HTTP::Negotiate
File::Listing));
}

sub inst2 {

CPAN::Shell->install(qw(
Time::Local
HTTP::Date
Compress::Raw::Bzip2
Compress::Raw::Zlib
IO::Uncompress::Inflate
HTTP::Status
Encode::Locale
LWP::MediaTypes
LWP::UserAgent
Hook::LexWrap
Test::SubCalls
Clone
Test::Tester
Test::NoWarnings
Test::Object
PPI::Document
PPIx::Regexp
Text::FindIndent
YAML::Tiny
URI
Text::Glob
Number::Compare
File::Find::Rule
threads
threads::shared
HTML::Tagset
HTML::Entities
Params::Util
Locale::Msgfmt
IO::Scalar
Task::Weaken
IO::String
Pod::Abstract
File::pushd
Time::HiRes
IPC::Run3
Probe::Perl
Test::Script
File::Which
File::HomeDir
UNIVERSAL::can
UNIVERSAL::isa
Tree::DAG_Node
Test::Warn
Sub::Uplevel));
}

sub inst3 {

CPAN::Shell->install(qw(
Test::Exception
Test::MockObject
DBI
List::MoreUtils
File::Path
Pod::Find
Class::XSAccessor
File::Slurp
parent
Pod::POM
Parse::ErrorString::Perl
common::sense
JSON::XS
Storable
POD2::Base
Class::Adapter
Template::Tiny
IO::Pty
IPC::Run
Devel::Dumpvar
Class::Inspector
Class::Unload
Capture::Tiny
if
MIME::Base64
Digest::base
XSLoader
Digest::MD5
Algorithm::Diff
Text::Diff
Data::Dumper
Test::Differences
Spiffy
Filter::Util::Call
Test::Base
ExtUtils::XSpp
Text::Abbrev
Module::CoreList
Module::Load
Params::Check
Module::Load::Conditional
Locale::Maketext::Simple
IPC::Cmd));
}

sub inst4 {

CPAN::Shell->install(qw(
ExtUtils::CBuilder
Perl::OSType
IO::Dir
Version::Requirements
Exporter
CPAN::Meta::YAML
JSON::PP
Parse::CPAN::Meta
CPAN::Meta
File::Temp
version
Module::Metadata
Module::Build
Module::Pluggable
Encode
Test
Text::Wrap
Pod::Escapes
Pod::Simple
Pod::Man
Scalar::Util
File::Spec
ExtUtils::MakeMaker
Test::Harness
Test::More
File::Remove
Padre
Wx::Scintilla));
}