Yet Another CPAN Grep

App-Docker-Client ( M/MZ/MZIESCHA/App-Docker-Client-0.010300.tar.gz, MZIESCHA, 2017; MetaCPAN )

App-Docker-Client/lib/App/Docker/Client.pm ( view source; MetaCPAN )

gs;
use AnyEvent;
use AnyEvent::Socket 'tcp_connect';
use AnyEvent::HTTP;
use LWP::UserAgent;
use JSON;
use LWP::Protocol::http::SocketUnixAlt;

=head2 new

Constructor

=cut

sub new {
    my $class

;
}

=head2 json

Getter/Setter for internal hash key json.

=cut

sub json {
    return $_[0]->{json} || JSON->new->utf8() unless $_[1];
    $_[0]->{json} = $_[1];
    return $_[0]->{json};
}

=head2

ttp_request( $path, $query ), $callback ) unless $body;
    return $self->request( $self->_handle_json( $path, $query, $body ), $callback )
      unless ($options);
    return $self->request( $self->_