App-Docker-Client

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         "requires" : {
            "ExtUtils::MakeMaker" : "0"
         }
      },
      "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" : {

META.yml  view on Meta::CPAN

name: App-Docker-Client
no_index:
  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

    ABSTRACT_FROM      => '',
    LICENSE            => 'artistic_2',
    PL_FILES           => {},
    MIN_PERL_VERSION   => 5.16.0,
    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,

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

        $req->content_type( $options->{content_type} );
        $req->content_length(
            do { use bytes; length $body }
        );
        $req->content($body);
        return $req;
    }

=head2 _http_request

create HTTP::Request by uri params

=cut

    sub _http_request {
        my ( $self, $path, $query ) = @_;
        require HTTP::Request;
        return HTTP::Request->new( POST => $self->uri( $path, %$query ) );
    }

=head2 _hande_response

=cut

    sub _hande_response {
        my ( $self, $response ) = @_;
        $self->_error_code( $response->code, $response->message, $response->content );
        my $content = $response->content();