Yet Another CPAN Grep

Net-DigitalNZ ( S/SH/SHINY/Net-DigitalNZ-0.15.tar.gz, SHINY, 2009; MetaCPAN )

Net-DigitalNZ/lib/Net/DigitalNZ.pm ( view source; MetaCPAN )

;
#Based heavily on Net::Twitter

$VERSION = "0.15";
use 5.005;
use strict;

use URI::Escape;
use JSON::Any 1.19;
use LWP::UserAgent 2.032;
use Carp;

sub new {
my $class = shift;

my %conf;

if ( sca

 { JSON::Any->jsonToObj( $self->{response_error} ) };

  if ( !defined $response ) {
    $response = {
    request => undef,
    error   => "DIGITAL NZ RETURNED ERROR MESSAGE BUT PARSING OF THE JSON R


    my $query = shift;
    my $params = shift;
    
    my $url  = $self->{apiurl} . "records/v1.json/?";
    $url .= 'api_key='. $self->{api_key};
    $url .= '&search_text='. uri_escape($query);