my %auth = do './.blizzard.passwd.pl' or die "no auth setup: $!\n";
my $bliz = LWP::Authen::OAuth2->new(%auth,
my %auth = do './.blizzard.passwd.pl' or die "no auth setup: $!\n";
my $bliz = LWP::Authen::OAuth2->new(%auth,
request_required_params => [qw( client_id client_secret grant_type )],
);
$bliz->request_tokens(grant_type => 'client_credentials');
sub blizget {
my $args = join('/', @_);
request_required_params => [qw( client_id client_secret grant_type )],
);
$bliz->request_tokens(grant_type => 'client_credentials');
sub blizget {
my $args = join('/', @_);
$res->is_success or die $res->status_line;
my $json = $res->decoded_content;
return decode_json($json);
$res->is_success or die $res->status_line;
my $json = $res->decoded_content;
return decode_json($json);