#########################
# 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.
use
Pollute_Test;
ok(4);
carp
"This line is printed by carp, imported via Pollute\n"
;
ok(5);
package
Pollute::Test2;
eval
{ carp(
"don't know how to carp in this package"
) };
$@ =~ /^Undefined subroutine \
&Pollute::Test2::carp
called at/ and ok(6);