Yet Another CPAN Grep

Module-Load ( B/BI/BINGOS/Module-Load-0.36.tar.gz, BINGOS, 2020; MetaCPAN )

Module-Load/t/02_Module-Load.t ( view source; MetaCPAN )

?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