#########################
# change 'tests => 1' to 'tests => last_test_to_print';
use Test;
BEGIN { plan tests => 6 };
BEGIN{
*Pollute::Test::ok =
*Pollute::Test2::ok =
\&ok
};
#use Pollute;
#ok(1); # If we made it this far, we're ok.
ok(4);
carp "This line is printed by carp, imported via Pollute\n";
ok(5);
eval { carp( "don't know how to carp in this package") };
$@ =~ /^Undefined subroutine \&Pollute::Test2::carp called at/ and ok(6);