package RPC::JSON;
use warnings;
use strict;
use RPC::JSON::Shell;
use Carp;
use JSON;
use LWP::UserAgent;
use URI;
use URI::Heuristic qw(uf_uri);
use vars qw|$VERSION @EXPORT $DEBUG $META $AUTOL
:JSON = qw|Exporter|;
@EXPORT = qw|
shell
test
|;
our $REQUEST_COUNT = 1;
=head1 NAME
RPC::JSON - JSON-RPC Client Library
=head1 SYNOPSIS
use RPC::JSON;
my $jsonrpc = RPC::JSON-
>new(
"http://www.simplymapped.com/services/geocode/json.smd" );
# Imports a geocode(['address']) method:
$jsonrpc->geocode('1600 Pennsylvania Ave');
Dumping this function returns wh
package RPC::JSON::Shell;
use warnings;
use strict;
use vars qw|$VERSION @EXPORT $DEBUG $META $AUTOLOAD|;
$VERSION = '0.02';
@RPC::JSON::Shell = qw|Exporter|;
use RPC::JSON;
use Term::ReadLine;
u
ME
RPC::JSON::Shell - Interactive JSON-RPC Shell
=head1 SYNOPSIS
perl -MRPC::JSON -e "RPC::JSON::shell"
Not connected> connect http://www.dev.simplymapped.com/services/geocode/json.smd
DC 20004, USA'
}
];
=head1 DESCRIPTION
This module is an interactive client to a JSON-RPC service. It is currently
in its infancy and is likely to be very unstable. There are many b