The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use inc::Module::Install 0.77;

# Instrumentation for exercising the Module::Install::With commands
sub yn { $_[0] ? 'Yes' : 'No' }
print "Compiling diagnostics...\n";
my %rv = (
	'cpanplus_available' => yn(cpanplus_available),
	'cpanpm'             => yn(cpanpm),
	'cpanplus'           => yn(cpanplus),
	'automated_testing'  => yn(automated_testing),
	'eumm'               => yn(eumm),
	'mb'                 => yn(mb),
#	'user_mode'          => yn(user_mode),
#	'author_mode'        => yn(author_mode),
	);
print <<"END_MESSAGE";
# BEGIN DIAGNOSTICS
#   CPANPLUS is installed and available   : $rv{cpanplus_available}
#   MI is running under CPAN.pm           : $rv{cpanpm}
#   MI is running under CPANPLUS          : $rv{cpanplus}
#   MI is running under AUTOMATED_TESTING : $rv{automated_testing}
#   MI is targetting ExtUtils::MakeMaker  : $rv{eumm}
#   MI is targetting Module::Build        : $rv{mb}
# END DIAGNOSTICS
END_MESSAGE

# The regular MI installation stuff
all_from 'lib/PITA/Test/Dummy/Perl5/MI.pm';

WriteAll;