view release on metacpan or  search on metacpan

test.pl  view on Meta::CPAN

sub hgfkjgjhgHJGFhjGa {
	return 1
}


package main;

use Test::Simple tests => 11;

my $obj = bless {}, "MyClass";

ok(MyClass->foo);
ok($obj->foo);

ok($obj->baR);
ok($obj->BAR);
ok($obj->bar);

ok($obj->foo_bar);
ok($obj->FOO_BAR);