Thesaurus 0.23

Thesaurus is a Perl module that maintains lists of associated items.

SYNOPSIS

use Thesaurus;

my $th = Thesaurus->new( -files => [ file1, file2 ],
-ignore_case => 1 );

@words = $th->find(vegan);

%words = $th->find( Faye );

foreach $word ( @{ $words{Faye} } )
{
#something ...
}

$th->add_file( file1, file2 );

$th->add( [ tofu, mock duck ] );

$th->delete( meat, vivisection );

Thesaurus is a module that allows you to create lists of related things. It was created in order to facilitate searches of a database of Chinese names in Anglicized form. Because there are various schemes to create phonetic representations of Chinese words, the following can all represent the same Chinese character:

Woo
Wu
Ng

Thesaurus can be used for anything that fits into a scalar by using the new method with no parameters and then calling the add method to add data.
Thesaurus also acts as the parent class to several child classes which implement various forms of persistence for the data structure. This module can be used on its own to instantiate an object that lives for the life of its scope.