CPAN::Groonga

et(
        'https://api.twitch.tv/kraken/user' ##Twitch API URL
    );
     
    print $info->as_json;
 
=head1 DESCRIPTION
 
Net::Twitch::Oauth2 gives you a way to simply access Twitch.tv Oauth 2.0 

e returned can be formatted as the following
 
=over 4
 
=item * C<$responseE<gt>as_json>
 
Returns response as json object
 
=item * C<$responseE<gt>as_hash>
 
Returns response as perl hashref
 
=bac

et::Twitch::Oauth2;
 
use strict;
use warnings;
use LWP::UserAgent;
use URI;
use URI::Escape;
use JSON::Any;
use Carp;
 
use constant ACCESS_TOKEN_URL => 'https://api.twitch.tv/kraken/oauth2/token';
u

e from twitch
    ##die and display error message
    my $j = JSON::Any->new;
    if (!$response->is_success){
        my $error = $j->jsonToObj($response->content());
        croak "'" .$error->{erro

    }
     
    ##everything is ok proccess response and extract access token
    my $reply = $j->jsonToObj($response->content());
    my $token = $reply->{access_token};
    my $expires = $reply->{re