BalanceOfPower
view release on metacpan or search on metacpan
lib/BalanceOfPower/Role/WebMaster.pm view on Meta::CPAN
430431432433434435436437438439440441442443444445446447448449450451452453454455
my
$bare
=
shift
|| 0;
my
$ua
= LWP::UserAgent->new;
$ua
->timeout(10);
$ua
->env_proxy;
my
$response
=
$ua
->get(
$self
->api_url .
$call
);
if
(
$response
->is_success) {
if
(
$bare
)
{
return
$response
->decoded_content;
}
else
{
my
$json
= JSON->new->allow_nonref;
return
$json
->decode(
$response
->decoded_content );
}
}
else
{
return
undef
;
}
}
sub
post_web_data
{
my
$self
=
shift
;
( run in 0.246 second using v1.01-cache-2.11-cpan-8d75d55dd25 )