# 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.tar.gz` `cd master` `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 netdna-netdnarws-perl-b05c6b7/lib/` ## Usage ```perl #!/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: ```perl $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));`