mbridge::VERSION = '0.02';
use Moose;
use HTTP::Request;
use LWP::UserAgent;
use URI::Encode;
use JSON;
use namespace::autoclean;
with 'Dictionary::Cambridge::Response';
has "base_url" => (
is
=> 'ro',
isa => 'URI::Encode',
lazy_build => 1
);
has "json" => (
is => 'ro',
isa => 'JSON',
lazy_build => 1
);
sub _build_user_agent {
return LWP::Use
Request->new();
}
sub _build_encode_uri {
return URI::Encode->new();
}
sub _build_json {
return JSON->new()->utf8;
}
sub get_entry {
my ( $self, $word ) = @_;
my $response;