App-Docker-Client

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         }
      },
      "runtime" : {
         "requires" : {
            "AnyEvent" : "0",
            "AnyEvent::HTTP" : "0",
            "AnyEvent::Socket" : "0",
            "Carp" : "0",
            "HTTP::Request" : "6.01",
            "JSON" : "2.9",
            "LWP::Protocol::http::SocketUnixAlt" : "0",
            "LWP::Protocol::https" : "6.01",
            "LWP::UserAgent" : "6.12",
            "URI" : "1.71",
            "perl" : "5.016000"
         }
      },
      "test" : {
         "requires" : {
            "File::Spec" : "0",
            "FindBin" : "0",

META.yml  view on Meta::CPAN

  directory:
    - t
    - inc
requires:
  AnyEvent: '0'
  AnyEvent::HTTP: '0'
  AnyEvent::Socket: '0'
  Carp: '0'
  HTTP::Request: '6.01'
  JSON: '2.9'
  LWP::Protocol::http::SocketUnixAlt: '0'
  LWP::Protocol::https: '6.01'
  LWP::UserAgent: '6.12'
  URI: '1.71'
  perl: '5.016000'
resources:
  repository: https://github.com/mziescha/App-Docker-Client.git
version: '0.010300'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

Makefile.PL  view on Meta::CPAN

    CONFIGURE_REQUIRES => {
        'ExtUtils::MakeMaker' => 0,
    },
    PREREQ_PM => {
        'URI'                                => 1.71,
        'Carp'                               => 0,
        'HTTP::Request'                      => 6.01,
        'JSON'                               => 2.90,
        'LWP::UserAgent'                     => 6.12,
        'LWP::Protocol::https'               => 6.01,
        'LWP::Protocol::http::SocketUnixAlt' => 0,
        'AnyEvent'                           => 0,
        'AnyEvent::Socket'                   => 0,
        'AnyEvent::HTTP'                     => 0,
    },
    TEST_REQUIRES => {
        'Test::More' => 0,
        'File::Spec' => 0,
        'FindBin'    => 0,
    },
    META_MERGE => {

lib/App/Docker/Client.pm  view on Meta::CPAN

our $VERSION = '0.010300';

use 5.16.0;
use strict;
use warnings;
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 = shift;
    my $self  = {@_};

lib/App/Docker/Client.pm  view on Meta::CPAN

sub user_agent {
    my ( $self, $user_agent ) = @_;
    if ($user_agent) {
        $self->{UserAgent} = $user_agent;
        return $self->{UserAgent};
    }
    return $self->{UserAgent} if $self->{UserAgent};

    if ( -S $self->authority() ) {
        LWP::Protocol::implementor( http => 'LWP::Protocol::http::SocketUnixAlt' );
    }
    $self->{UserAgent} = LWP::UserAgent->new(
        (
            $self->{show_progress} ? ( show_progress => 1 ) : (),
            $self->ssl_opts ? ( ssl_opts => $self->ssl_opts ) : (),
        )
    );
    return $self->{UserAgent};

}