?PEACE/o, $_[0] || '.';
goto &_reset;
}
sub isnt_peace_in_world{
unlike $r, qr/(WORLD\W+)?PEACE/o, $_[0] || '.';
goto &_reset;
}
sub isnt_def_sub{
like $r, qr/Undefined\s+subroutine/
rld();
_test('use Module::Load;
load("Data::Dumper");
Dumper([$WORLD]);');
isnt_def_sub();
_test('use Module::Load;
load("Data::Dumper","Dumper");
Data::Dumpe
Data::Dumper->Dump([$WORLD]);');
isnt_def_sub();
_test('use Module::Load "none";
load("Data::Dumper");
Data::Dumper->Dump([$WORLD]);');
isnt_def_sub();
_test('use Module::Load