WWW::Search::UrbanDictionary - Search the Urban Dictionary via SOAP

  use WWW::Search;

  my $key = 'abcdefghijklmnop1234567890';

  my $search = WWW::Search->new('UrbanDictionary', key => $key);

  $search->native_query('emo');

  while (my $result = $search->next_result() ) {
    print $result->{'word'} . ' - ' . $result->{'definition'} . "\n";
    print $result->{'author'}, "\n";
    print $result->{'example'}, "\n";
    print $result->url, "\n";
    print "\n";
  }

package WWW::Search::UrbanDictionary;

use strict;
use warnings;

use Carp;
use SOAP::Lite;
use WWW::Search qw(generic_option);
use WWW::SearchResult;

use vars qw(@ISA $VERSION);

@ISA = qw(WWW::Search);

$VERSION = '0.4';

sub native_setup_search {
	my($self, $query) = @_;
	my $key = $self->{'key'};
	if (! $key) { croak('No license key given to WWW::Search::UrbanDictionary!'); }
	$self->{'_query'} = $query;
	$self->{'_offset'} = 0;
    return 1;
}

sub native_retrieve_some {
	my $self = shift;
	my $key = $self->{'key'};
	my $query = $self->{'_query'};

	my $search = SOAP::Lite->service('http://api.urbandictionary.com/soap?wsdl');

	my $results = $search->lookup($key, $query);

    if (! $results) { return; }
    if ($self->{'search_count'} && $self->{'search_count'} > 0) { return; }

	$self->approximate_result_count(scalar @{$results});

	if ($results) {
		foreach my $element (@{$results}) {
			my $hit = WWW::SearchResult->new();
			$hit->{'example'} = $element->{'example'};
			$hit->url($element->{'url'});
			$hit->{'author'} = $element->{'author'};
			$hit->{'definition'} = $element->{'definition'};
			$hit->{'word'} = $element->{'word'};
			push @{$self->{'cache'}}, $hit;
		}
	} else {
		return;
	}

	if (scalar @{$results} < 10) { return; }
	$self->{'search_count'} += 1;
	return 1;
}

1;
__END__