File Coverage

blib/lib/Acme/Method/CaseInsensitive.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	7	8	87.5
condition	2	3	66.6
subroutine	5	5	100.0
pod	0	1	0.0
total	43	46	93.4

package Acme::Method::CaseInsensitive;
use strict;
use warnings;
use Carp;

our $VERSION = 0.04;

sub permute {
	my($class, $chars, $position) = @_;

	my $current = join "", @$chars;

	if($class->can($current)) {
		die qq{Acme::Method::CaseInsensitive::method:"$current"}
	}

	return if $position > @$chars - 1;

	my @uc = @$chars;
	my @lc = @$chars;

	$uc[$position] = uc $chars->[$position];
	$lc[$position] = lc $chars->[$position];

	permute($class, \@uc, $position + 1);
	permute($class, \@lc, $position + 1);
}

sub UNIVERSAL::AUTOLOAD {
	my $class = shift;

	my $method_name = $UNIVERSAL::AUTOLOAD;
	$method_name    =~ s/.*://;
	my @chars       = split //, $method_name;

	eval { permute($class,\@chars,0) };

	my($new_name) = $@ =~ m{Acme::Method::CaseInsensitive::method:"([\w\d]+)"};
	not $new_name and $@ and die $@;

	return $new_name
		? $class->$new_name(@_)
		: croak qq{Can't locate object method "$method_name" via package "$class" (perhaps your forgot to load "$class"?)}
}



q;

__END__