view release on metacpan or  search on metacpan

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

use Moo;
use MooX::LazierAttributes qw/rw lzy/;
use MooX::ValidateSubs;
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]] },
);