view release on metacpan or  search on metacpan

test.pl  view on Meta::CPAN

use strict;
use warnings;

use Acme::Method::CaseInsensitive;

package MyClass;

sub Foo {
	return 1
}

sub baR {
	return 1
}

sub Foo_Bar {
	return 1
}

sub ggjhgJKHgasAS {
	return 1
}


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);
ok($obj->fOO_bAR);

ok($obj->GgjHgJkHgasAs);
ok($obj->hgfkjgjhgHJGFhjGA);

eval { $obj->Doesnt_Exist };

ok($@);