#!/usr/local/bin/perl

eval 'exec /usr/bin/perl  -S $0 ${1+"$@"}'
    if 0;

$VERSION = '0.01';

=head1 NAME

findacronym.pl - Search AcronymFinder.com

=head1 SYNOPSIS

B<findacronym.pl> query [ function ]

=head1 DESCRIPTION

A utility to search acronyms. It iterates through all the search functions if it is not specified.

=head1 SEE ALSO

L<WWW::Search>, L<WWW::Search::AcronymFinder>

=head1 AUTHORS

xern <xern@cpan.org>

=head1 LICENSE

Released under The Artistic License

=cut


$query = $ARGV[0] || die "$0 query function\n";
$function = $ARGV[1];

@funcarr = ('exact', 'prefix', 'reverse', 'wildcard');

use WWW::Search::AcronymFinder;

$search = new WWW::Search('AcronymFinder');

for ( $function ? $function : @funcarr ){
    $search->native_query(WWW::Search::escape_query($query), { function => $_ });
    print "-"x14, $_, "-"x14, $/;
    while (my $result = $search->next_result()) {
        print "$result\n";
    }
}