r;
use strict;
use warnings;
our $VERSION = '0.03';
use LWP::UserAgent;
use HTTP::Request;
use JSON;
use Want;
use URI;
use WWW::RabbitMQ::Broker::Shovel;
sub new
{
my $class = shift;
my $self
lication/json; charset=UTF-8');
$req->authorization_basic($self->{username}, $self->{password});
my $parser = JSON->new->utf8(1);
my $json = $parser->encode($args);
$req->content($json);
my $