Badge Module - Generate Access Token

gistfile1.txt

	sub generate_access_token {

		my ($self) = @_;
    my $access_token_url = $self->{badgr_url}."/o/token";
		my $ua = LWP::UserAgent->new;
		my $req = POST $access_token_url,[ username => $self->{badgr_account}, password => $self->{badgr_password} ];
		my $response = $ua->request($req);
		if ($response->is_success) {
			 my $hashref  = decode_json $response->decoded_content;
			 $self->{access_token} =  $hashref->{access_token};
			 $self->{refresh_token} =  $hashref->{refresh_token};
		}
		else {
		   print STDERR $response->status_line, "\n";
		}
	}