oogle::Language;
use 5.006;
use strict;
use warnings;
our $VERSION = '0.14';
use Carp ();
use JSON 2.0 ();
use LWP::UserAgent;
use URI;
use constant GOOGLE_DETECT_URL => 'http://ajax.googleapi
$value;
}
}
for (qw'json ua') {
if (defined(my $value = delete $conf{$_})) {
$self->$_($value);
}
}
unless ($self->json) {
$self->json(JSON->new);
}
unless ($self->
sub json {
my $self = shift;
if (@_) {
my $json = shift;
Carp::croak q{'json' requires an object based on 'JSON'}
unless $json && $json->isa('JSON');
$self->{json} = $json;