Yet Another CPAN Grep

NetDNA ( M/MB/MBASTOS/NetDNA-0.1.tar.gz, MBASTOS, 2012; MetaCPAN )

NetDNA/scripts/sample.pl ( view source; MetaCPAN )

 NetDNA( 'jdorfman', 'fbe242bcaf4c95ed39a', 'e1429ab0873d0f');

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

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

# Get first name which is set using constructor.
#$alias = $api->getAlias()

NetDNA ( M/MB/MBASTOS/NetDNA-0.1.tar.gz, MBASTOS, 2012; MetaCPAN )

NetDNA/lib/NetDNA.pm ( view source; MetaCPAN )

package NetDNA;
use strict;
use warnings;
use JSON;
use Net::OAuth;
use LWP::UserAgent;
use URI;
use Data::Dumper;
$Net::OAuth::PROTOCOL_VERSION = Net::OAuth::PROTOCOL_VERSION_1_0A;
my $base_url = "ht

        # Decode JSON
        my $decoded_json = decode_json($res->content);
        if($decoded_json->{code} == 200) {
		if($debug){
                        print Dumper $decoded_json->{data};
		}

ed_json->{data};
	} else {
	        if($debug){
		        print Dumper $decoded_json->{error};
		}
		return $decoded_json->{error};
	}
        
        
        
}

#################### main pod docum