Create Badge Object in Perl

gistfile1.txt

package gRSShopper::Badgr;

  use strict;
  use warnings;
	use HTTP::Request::Common qw(POST);
	use LWP::UserAgent;
	use JSON qw(encode_json decode_json);

  our $VERSION = "1.00";

  sub new {

  	my($class, $args) = @_;
   	my $self = bless({}, $class);

   	while (my ($ax,$ay) = each %$args) {$self->{$ax} = $ay;}
    $self->generate_access_token();
   	return $self;
  }