view release on metacpan or  search on metacpan

lib/Acme/ICan/tSpell.pm  view on Meta::CPAN

);

sub get {
	my $response = $_[0]->tiny->get($_[1]);
	$response->{success} and return $response;
	croak sprintf "something went terribly wrong: status - %s - reason - %s", 
		$response->{status}, $response->{reason};
}

sub spell_check {
	my $moon = $_[0]->get(sprintf('%s%s', $_[1]->{base_url}, uri_escape($_[1]->{check})))->{content};
	if ($moon =~ m{(?:Showing results for|Did you mean|Including results for)[^\0]*?<a.*?>(.*?)</a>}){
		(my $str = $1) =~ s/<.*?>//g;
 		return $_[0]->spell_check({ check => $str }); # work around googles struggles  	
	}
	return $_[1]->{check};
}

sub spell {
	return $_[0]->spell_check({ check => $_[1] });
}