+ state $bliz = do {
+ my %auth = do './.blizzard.passwd.pl' or die "no auth setup: $!\n";
+ my $bliz = LWP::Authen::OAuth2->new(%auth,
+ token_endpoint => 'https://eu.battle.net/oauth/token',
+ request_required_params => [qw( client_id client_secret grant_type )],
+ );
+ $bliz->request_tokens(grant_type => 'client_credentials');
+ $bliz;
+ };
+