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;