Yet Another CPAN Grep

Net-FleetDB ( L/LB/LBROCARD/Net-FleetDB-0.33.tar.gz, LBROCARD, 2010; MetaCPAN )

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

package Net::FleetDB;
use warnings;
use strict;
use Carp qw(croak);
use IO::Socket::INET;
use JSON::XS::VersionOneAndTwo;
our $VERSION = '0.33';

sub new {
    my ( $class, %args ) = @_;

    my $host

_json( \@args );
    warn "-> $request\n" if 0;
    $socket->print( $request . "\n" ) || die $!;
    my $response = $socket->getline || die $!;
    warn "<- $response" if 0;
    my $return = from_json