File Coverage

blib/lib/Unidexer.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	14	14	100.0
condition	2	3	66.6
subroutine	7	7	100.0
pod	0	3	0.0
total	60	64	93.7

package Unidexer;

use 5.006; use strict; use warnings; our $VERSION = '0.01';

our $CHARS = 149186;

sub new {
	my ($class, @words) = @_;
	if (ref $words[1]) {
		$CHARS = shift @words;
		@words = @{ $words[0] };
	}
	my $self = bless [_build_default()], __PACKAGE__;
	$self->index($_) for (@words);
	return $self;
}

sub _build_default {
	return map { [ ] } 0 .. $CHARS
}

sub index {
	my ($self, $word) = @_;
	my $current = $self;
	for (split "|", ref $word ? $word->{index} : $word) {
		my $ord = ord($_);
		$ord -= 97 if ($CHARS == 26);
		unshift @{ $current }, _build_default() if ( scalar @{$current} < $CHARS );
		$current = $current->[$ord];
	}
	push @{$current}, $word;
}

sub search {
	my ($self, $search) = @_;
	my $word = $self;
	for (split "|", $search) {
		my $ord = ord($_);
		$ord -= 97 if ($CHARS == 26);
		$word = $word->[$ord];
		last if !$word;
	}
	return ref $word && ref $word->[-1] ne 'ARRAY' ? $word->[-1] : die "Index cannot be found: ${search}";
}

1;

__END__