BEGIN {  *CORE::GLOBAL::exit = sub { 23 } };


package CPAN;

no warnings 'redefine';

sub shell {
	print "I am the shell!\n";
	}

sub CPAN::HandleConfig::load {
	print "Loading config\n";
	}

sub CPAN::Shell::install {
	return 'install';
	}

sub CPAN::Shell::force {
	return 'force';
	}

1;