The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
Text-Thesaurus-Aiksaurus-0.0.0
River stage zero No dependents
++
/ Text::Thesaurus::Aiksaurus

NAME

Text::Thesaurus::Aiksaurus - The great new Text::Thesaurus::Aiksaurus!

VERSION

Version 0.0.0

SYNOPSIS

    use Text::Thesaurus::Aiksaurus;
    use Data::Dumper;
    
    my $ata=Text::Thesaurus::Aiksaurus->new;
    my %h=$ata->search('test');
    
    print join("\n", keys(%h));

METHODS

new

This searches the aiksaurus for the specified word.

    %returnedH=$ata->search($word);
    if($ata->{error}){
        #handles it if it errored
        print "It errored... ".$ata->{error};
    }else{
        my $int=0;
        if(defined($returnedH{'%misspelled'})){
            #handles it if it misspelled
            while(defined($returnedH{'%misspelled'}[$int])){
                print $returnedH{'%misspelled'}[$int]."\n";

                $int++;
            }
        }else{
            #handles it if it was not misspelled
            my @returnedHkeys=keys(%returnedH);
            while(defined($returnedHkeys[$int])){
               print $returnedHkeys[$int].":\n";

               my $int2==0;
               while(){
                    print '    '.$returnedH{$returnedHkeys[$int]}[$int2];
                    $int2++;
                }

                $int++;
            };
        }
    }

errorblank

This is a internal function.

ERROR CODES

1

Failed to execute aiksaurus.

2

It exited with a non-zero status.

RETURNED HASH

If the only key in the returned has is '%misspelled', it aiksaurus regards it as being mis-spelled. The key is a array of possible matches.

Each key in the returned hash is a main word containing various other ones with similar meanings. Each key is a array containing the other words.

AUTHOR

Zane C. Bowers, <vvelox at vvelox.net>

BUGS

Please report any bugs or feature requests to bug-text-thesaurus-aiksaurus at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Text-Thesaurus-Aiksaurus. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Text::Thesaurus::Aiksaurus

You can also look for information at:

ACKNOWLEDGEMENTS

COPYRIGHT & LICENSE

Copyright 2009 Zane C. Bowers, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.