Acme-ICan-tSpell
view release on metacpan or search on metacpan
lib/Acme/ICan/tSpell.pm view on Meta::CPAN
use Types::Standard qw/Object Str HashRef/;
use HTTP::Tiny;
use URI::Escape;
use Carp qw/croak/;
attributes (
tiny => [Object, {lzy, default => sub {HTTP::Tiny->new}}],
base_url => [Str, {lzy, default => 'http://www.google.com/search?gws_rd=ssl&hl=en&q='}],
);
validate_subs (
get => { params => [ [Str] ], returns => [[HashRef]] },
spell_check => {
params => { check => [Str], base_url => [Str, 'base_url'] },
returns => [[Str]],
},
spell => { params => [[Str]], returns => [[Str]] },
);
sub get {
my $response = $_[0]->tiny->get($_[1]);
( run in 0.496 second using v1.01-cache-2.11-cpan-4d50c553e7e )