NetDNA REST Web Services Perl Client

Requirements (open cpan)

install JSON

install Net::OAuth

install LWP::UserAgent

install URI

install Data::Dumper

install IO::Socket::SSL

install LWP::Protocol::https

##Install from Make File

wget https://github.com/bastosmichael/netdnarws-perl/tarball/master

tar -zxvf master

cd bastosmichael-netdnarws-perl-*/

perl Build.PL

sudo ./Build

sudo ./Build install

Installation of Standalone NetDNA.pm

wget https://github.com/bastosmichael/netdnarws-perl/zipball/master

unzip master

cd bastosmichael-netdnarws-perl-*/lib/

Usage

#!/usr/bin/perl -w

use NetDNA;
use Data::Dumper;
           
$api = new NetDNA( 'companyalias', 'fbe242bcaf4c95ed39a56da', 'e1429ab0873d0f13b62');

$api->get("/account.json");

Methods

It has support for GET, POST, PUT and DELETE OAuth 1.0a signed requests.

Every request can take an optional debug parameter:

$api->get("/account.json", 1);
# Will output
# Making GET request to https://rws.netdna.com/myalias/account.json
#{... API Returned Stuff ...}

Help

If your IO Socket doesn't install properly then run:

CPAN::Shell->force(qw(install IO::Socket::SSL));