view release on metacpan or  search on metacpan

lib/Buzznet/API.pm  view on Meta::CPAN

{
  my $self = shift;
  my $url = "http://www.buzznet.com/interface/xmlrpc/?key=" . $self->{"key"};
  return $url;
}

sub getXMLRPC
{
  my $self = shift;
  my $cli = RPC::XML::Client->new($self->url);
  $cli->credentials("Buzznet",$self->{"username"},$self->{"password"});
  my $request = $cli->request;
  return $cli;
}

sub sendRequest
{
  my $self = shift;

  my $request = RPC::XML::request->new(@_);