javonet-ruby-sdk 2.1.1 → 2.1.3

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/deps/lib/perl5/Net/HTTP/NB.pm

@@ -1,121 +0,0 @@
-package Net::HTTP::NB;
-our $VERSION = '6.22';
-use strict;
-use warnings;
-
-use base 'Net::HTTP';
-
-sub can_read {
-    return 1;
-}
-
-sub sysread {
-    my $self = $_[0];
-    if (${*$self}{'httpnb_read_count'}++) {
-	${*$self}{'http_buf'} = ${*$self}{'httpnb_save'};
-	die "Multi-read\n";
-    }
-    my $buf;
-    my $offset = $_[3] || 0;
-    my $n = sysread($self, $_[1], $_[2], $offset);
-    ${*$self}{'httpnb_save'} .= substr($_[1], $offset);
-    return $n;
-}
-
-sub read_response_headers {
-    my $self = shift;
-    ${*$self}{'httpnb_read_count'} = 0;
-    ${*$self}{'httpnb_save'} = ${*$self}{'http_buf'};
-    my @h = eval { $self->SUPER::read_response_headers(@_) };
-    if ($@) {
-	return if $@ eq "Multi-read\n";
-	die;
-    }
-    return @h;
-}
-
-sub read_entity_body {
-    my $self = shift;
-    ${*$self}{'httpnb_read_count'} = 0;
-    ${*$self}{'httpnb_save'} = ${*$self}{'http_buf'};
-    # XXX I'm not so sure this does the correct thing in case of
-    # transfer-encoding transforms
-    my $n = eval { $self->SUPER::read_entity_body(@_); };
-    if ($@) {
-	$_[0] = "";
-	return -1;
-    }
-    return $n;
-}
-
-1;
-
-=pod
-
-=encoding UTF-8
-
-=head1 NAME
-
-Net::HTTP::NB - Non-blocking HTTP client
-
-=head1 VERSION
-
-version 6.22
-
-=head1 SYNOPSIS
-
- use Net::HTTP::NB;
- my $s = Net::HTTP::NB->new(Host => "www.perl.com") || die $@;
- $s->write_request(GET => "/");
-
- use IO::Select;
- my $sel = IO::Select->new($s);
-
- READ_HEADER: {
-    die "Header timeout" unless $sel->can_read(10);
-    my($code, $mess, %h) = $s->read_response_headers;
-    redo READ_HEADER unless $code;
- }
-
- while (1) {
-    die "Body timeout" unless $sel->can_read(10);
-    my $buf;
-    my $n = $s->read_entity_body($buf, 1024);
-    last unless $n;
-    print $buf;
- }
-
-=head1 DESCRIPTION
-
-Same interface as C<Net::HTTP> but it will never try multiple reads
-when the read_response_headers() or read_entity_body() methods are
-invoked.  This make it possible to multiplex multiple Net::HTTP::NB
-using select without risk blocking.
-
-If read_response_headers() did not see enough data to complete the
-headers an empty list is returned.
-
-If read_entity_body() did not see new entity data in its read
-the value -1 is returned.
-
-=head1 SEE ALSO
-
-L<Net::HTTP>
-
-=head1 AUTHOR
-
-Gisle Aas <gisle@activestate.com>
-
-=head1 COPYRIGHT AND LICENSE
-
-This software is copyright (c) 2001 by Gisle Aas.
-
-This is free software; you can redistribute it and/or modify it under
-the same terms as the Perl 5 programming language system itself.
-
-=cut
-
-__END__
-
-#ABSTRACT: Non-blocking HTTP client
-

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/deps/lib/perl5/Net/HTTP.pm

@@ -1,307 +0,0 @@
-package Net::HTTP;
-our $VERSION = '6.22';
-use strict;
-use warnings;
-
-our $SOCKET_CLASS;
-unless ($SOCKET_CLASS) {
-    # Try several, in order of capability and preference
-    if (eval { require IO::Socket::IP }) {
-       $SOCKET_CLASS = "IO::Socket::IP";    # IPv4+IPv6
-    } elsif (eval { require IO::Socket::INET6 }) {
-       $SOCKET_CLASS = "IO::Socket::INET6"; # IPv4+IPv6
-    } elsif (eval { require IO::Socket::INET }) {
-       $SOCKET_CLASS = "IO::Socket::INET";  # IPv4 only
-    } else {
-       require IO::Socket;
-       $SOCKET_CLASS = "IO::Socket::INET";
-    }
-}
-require Net::HTTP::Methods;
-require Carp;
-
-our @ISA = ($SOCKET_CLASS, 'Net::HTTP::Methods');
-
-sub new {
-    my $class = shift;
-    Carp::croak("No Host option provided") unless @_;
-    $class->SUPER::new(@_);
-}
-
-sub configure {
-    my($self, $cnf) = @_;
-    $self->http_configure($cnf);
-}
-
-sub http_connect {
-    my($self, $cnf) = @_;
-    $self->SUPER::configure($cnf);
-}
-
-1;
-
-=pod
-
-=encoding UTF-8
-
-=head1 NAME
-
-Net::HTTP - Low-level HTTP connection (client)
-
-=head1 VERSION
-
-version 6.22
-
-=head1 SYNOPSIS
-
- use Net::HTTP;
- my $s = Net::HTTP->new(Host => "www.perl.com") || die $@;
- $s->write_request(GET => "/", 'User-Agent' => "Mozilla/5.0");
- my($code, $mess, %h) = $s->read_response_headers;
-
- while (1) {
-    my $buf;
-    my $n = $s->read_entity_body($buf, 1024);
-    die "read failed: $!" unless defined $n;
-    last unless $n;
-    print $buf;
- }
-
-=head1 DESCRIPTION
-
-The C<Net::HTTP> class is a low-level HTTP client.  An instance of the
-C<Net::HTTP> class represents a connection to an HTTP server.  The
-HTTP protocol is described in RFC 2616.  The C<Net::HTTP> class
-supports C<HTTP/1.0> and C<HTTP/1.1>.
-
-C<Net::HTTP> is a sub-class of one of C<IO::Socket::IP> (IPv6+IPv4),
-C<IO::Socket::INET6> (IPv6+IPv4), or C<IO::Socket::INET> (IPv4 only).
-You can mix the methods described below with reading and writing from the
-socket directly.  This is not necessary a good idea, unless you know what
-you are doing.
-
-The following methods are provided (in addition to those of
-C<IO::Socket::INET>):
-
-=over
-
-=item C<< $s = Net::HTTP->new( %options ) >>
-
-The C<Net::HTTP> constructor method takes the same options as
-C<IO::Socket::INET>'s as well as these:
-
-  Host:            Initial host attribute value
-  KeepAlive:       Initial keep_alive attribute value
-  SendTE:          Initial send_te attribute_value
-  HTTPVersion:     Initial http_version attribute value
-  PeerHTTPVersion: Initial peer_http_version attribute value
-  MaxLineLength:   Initial max_line_length attribute value
-  MaxHeaderLines:  Initial max_header_lines attribute value
-
-The C<Host> option is also the default for C<IO::Socket::INET>'s
-C<PeerAddr>.  The C<PeerPort> defaults to 80 if not provided.
-The C<PeerPort> specification can also be embedded in the C<PeerAddr>
-by preceding it with a ":", and closing the IPv6 address on brackets "[]" if
-necessary: "192.0.2.1:80","[2001:db8::1]:80","any.example.com:80".
-
-The C<Listen> option provided by C<IO::Socket::INET>'s constructor
-method is not allowed.
-
-If unable to connect to the given HTTP server then the constructor
-returns C<undef> and $@ contains the reason.  After a successful
-connect, a C<Net:HTTP> object is returned.
-
-=item C<< $s->host >>
-
-Get/set the default value of the C<Host> header to send.  The $host
-must not be set to an empty string (or C<undef>) for HTTP/1.1.
-
-=item C<< $s->keep_alive >>
-
-Get/set the I<keep-alive> value.  If this value is TRUE then the
-request will be sent with headers indicating that the server should try
-to keep the connection open so that multiple requests can be sent.
-
-The actual headers set will depend on the value of the C<http_version>
-and C<peer_http_version> attributes.
-
-=item C<< $s->send_te >>
-
-Get/set the a value indicating if the request will be sent with a "TE"
-header to indicate the transfer encodings that the server can choose to
-use.  The list of encodings announced as accepted by this client depends
-on availability of the following modules: C<Compress::Raw::Zlib> for
-I<deflate>, and C<IO::Compress::Gunzip> for I<gzip>.
-
-=item C<< $s->http_version >>
-
-Get/set the HTTP version number that this client should announce.
-This value can only be set to "1.0" or "1.1".  The default is "1.1".
-
-=item C<< $s->peer_http_version >>
-
-Get/set the protocol version number of our peer.  This value will
-initially be "1.0", but will be updated by a successful
-read_response_headers() method call.
-
-=item C<< $s->max_line_length >>
-
-Get/set a limit on the length of response line and response header
-lines.  The default is 8192.  A value of 0 means no limit.
-
-=item C<< $s->max_header_length >>
-
-Get/set a limit on the number of header lines that a response can
-have.  The default is 128.  A value of 0 means no limit.
-
-=item C<< $s->format_request($method, $uri, %headers, [$content]) >>
-
-Format a request message and return it as a string.  If the headers do
-not include a C<Host> header, then a header is inserted with the value
-of the C<host> attribute.  Headers like C<Connection> and
-C<Keep-Alive> might also be added depending on the status of the
-C<keep_alive> attribute.
-
-If $content is given (and it is non-empty), then a C<Content-Length>
-header is automatically added unless it was already present.
-
-=item C<< $s->write_request($method, $uri, %headers, [$content]) >>
-
-Format and send a request message.  Arguments are the same as for
-format_request().  Returns true if successful.
-
-=item C<< $s->format_chunk( $data ) >>
-
-Returns the string to be written for the given chunk of data.
-
-=item C<< $s->write_chunk($data) >>
-
-Will write a new chunk of request entity body data.  This method
-should only be used if the C<Transfer-Encoding> header with a value of
-C<chunked> was sent in the request.  Note, writing zero-length data is
-a no-op.  Use the write_chunk_eof() method to signal end of entity
-body data.
-
-Returns true if successful.
-
-=item C<< $s->format_chunk_eof( %trailers ) >>
-
-Returns the string to be written for signaling EOF when a
-C<Transfer-Encoding> of C<chunked> is used.
-
-=item C<< $s->write_chunk_eof( %trailers ) >>
-
-Will write eof marker for chunked data and optional trailers.  Note
-that trailers should not really be used unless is was signaled
-with a C<Trailer> header.
-
-Returns true if successful.
-
-=item C<< ($code, $mess, %headers) = $s->read_response_headers( %opts ) >>
-
-Read response headers from server and return it.  The $code is the 3
-digit HTTP status code (see L<HTTP::Status>) and $mess is the textual
-message that came with it.  Headers are then returned as key/value
-pairs.  Since key letter casing is not normalized and the same key can
-even occur multiple times, assigning these values directly to a hash
-is not wise.  Only the $code is returned if this method is called in
-scalar context.
-
-As a side effect this method updates the 'peer_http_version'
-attribute.
-
-Options might be passed in as key/value pairs.  There are currently
-only two options supported; C<laxed> and C<junk_out>.
-
-The C<laxed> option will make read_response_headers() more forgiving
-towards servers that have not learned how to speak HTTP properly.  The
-C<laxed> option is a boolean flag, and is enabled by passing in a TRUE
-value.  The C<junk_out> option can be used to capture bad header lines
-when C<laxed> is enabled.  The value should be an array reference.
-Bad header lines will be pushed onto the array.
-
-The C<laxed> option must be specified in order to communicate with
-pre-HTTP/1.0 servers that don't describe the response outcome or the
-data they send back with a header block.  For these servers
-peer_http_version is set to "0.9" and this method returns (200,
-"Assumed OK").
-
-The method will raise an exception (die) if the server does not speak
-proper HTTP or if the C<max_line_length> or C<max_header_length>
-limits are reached.  If the C<laxed> option is turned on and
-C<max_line_length> and C<max_header_length> checks are turned off,
-then no exception will be raised and this method will always
-return a response code.
-
-=item C<< $n = $s->read_entity_body($buf, $size); >>
-
-Reads chunks of the entity body content.  Basically the same interface
-as for read() and sysread(), but the buffer offset argument is not
-supported yet.  This method should only be called after a successful
-read_response_headers() call.
-
-The return value will be C<undef> on read errors, 0 on EOF, -1 if no data
-could be returned this time, otherwise the number of bytes assigned
-to $buf.  The $buf is set to "" when the return value is -1.
-
-You normally want to retry this call if this function returns either
--1 or C<undef> with C<$!> as EINTR or EAGAIN (see L<Errno>).  EINTR
-can happen if the application catches signals and EAGAIN can happen if
-you made the socket non-blocking.
-
-This method will raise exceptions (die) if the server does not speak
-proper HTTP.  This can only happen when reading chunked data.
-
-=item C<< %headers = $s->get_trailers >>
-
-After read_entity_body() has returned 0 to indicate end of the entity
-body, you might call this method to pick up any trailers.
-
-=item C<< $s->_rbuf >>
-
-Get/set the read buffer content.  The read_response_headers() and
-read_entity_body() methods use an internal buffer which they will look
-for data before they actually sysread more from the socket itself.  If
-they read too much, the remaining data will be left in this buffer.
-
-=item C<< $s->_rbuf_length >>
-
-Returns the number of bytes in the read buffer.  This should always be
-the same as:
-
-    length($s->_rbuf)
-
-but might be more efficient.
-
-=back
-
-=head1 SUBCLASSING
-
-The read_response_headers() and read_entity_body() will invoke the
-sysread() method when they need more data.  Subclasses might want to
-override this method to control how reading takes place.
-
-The object itself is a glob.  Subclasses should avoid using hash key
-names prefixed with C<http_> and C<io_>.
-
-=head1 SEE ALSO
-
-L<LWP>, L<IO::Socket::INET>, L<Net::HTTP::NB>
-
-=head1 AUTHOR
-
-Gisle Aas <gisle@activestate.com>
-
-=head1 COPYRIGHT AND LICENSE
-
-This software is copyright (c) 2001 by Gisle Aas.
-
-This is free software; you can redistribute it and/or modify it under
-the same terms as the Perl 5 programming language system itself.
-
-=cut
-
-__END__
-
-# ABSTRACT: Low-level HTTP connection (client)
-

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/deps/lib/perl5/Net/HTTPS.pm

@@ -1,135 +0,0 @@
-package Net::HTTPS;
-our $VERSION = '6.22';
-use strict;
-use warnings;
-
-# Figure out which SSL implementation to use
-our $SSL_SOCKET_CLASS;
-if ($SSL_SOCKET_CLASS) {
-    # somebody already set it
-}
-elsif ($SSL_SOCKET_CLASS = $ENV{PERL_NET_HTTPS_SSL_SOCKET_CLASS}) {
-    unless ($SSL_SOCKET_CLASS =~ /^(IO::Socket::SSL|Net::SSL)\z/) {
-	die "Bad socket class [$SSL_SOCKET_CLASS]";
-    }
-    eval "require $SSL_SOCKET_CLASS";
-    die $@ if $@;
-}
-elsif ($IO::Socket::SSL::VERSION) {
-    $SSL_SOCKET_CLASS = "IO::Socket::SSL"; # it was already loaded
-}
-elsif ($Net::SSL::VERSION) {
-    $SSL_SOCKET_CLASS = "Net::SSL";
-}
-else {
-    eval { require IO::Socket::SSL; };
-    if ($@) {
-	my $old_errsv = $@;
-	eval {
-	    require Net::SSL;  # from Crypt-SSLeay
-	};
-	if ($@) {
-	    $old_errsv =~ s/\s\(\@INC contains:.*\)/)/g;
-	    die $old_errsv . $@;
-	}
-	$SSL_SOCKET_CLASS = "Net::SSL";
-    }
-    else {
-	$SSL_SOCKET_CLASS = "IO::Socket::SSL";
-    }
-}
-
-require Net::HTTP::Methods;
-
-our @ISA=($SSL_SOCKET_CLASS, 'Net::HTTP::Methods');
-
-sub configure {
-    my($self, $cnf) = @_;
-    $self->http_configure($cnf);
-}
-
-sub http_connect {
-    my($self, $cnf) = @_;
-    if ($self->isa("Net::SSL")) {
-	if ($cnf->{SSL_verify_mode}) {
-	    if (my $f = $cnf->{SSL_ca_file}) {
-		$ENV{HTTPS_CA_FILE} = $f;
-	    }
-	    if (my $f = $cnf->{SSL_ca_path}) {
-		$ENV{HTTPS_CA_DIR} = $f;
-	    }
-	}
-	if ($cnf->{SSL_verifycn_scheme}) {
-	    $@ = "Net::SSL from Crypt-SSLeay can't verify hostnames; either install IO::Socket::SSL or turn off verification by setting the PERL_LWP_SSL_VERIFY_HOSTNAME environment variable to 0";
-	    return undef;
-	}
-    }
-    $self->SUPER::configure($cnf);
-}
-
-sub http_default_port {
-    443;
-}
-
-if ($SSL_SOCKET_CLASS eq "Net::SSL") {
-    # The underlying SSLeay classes fails to work if the socket is
-    # placed in non-blocking mode.  This override of the blocking
-    # method makes sure it stays the way it was created.
-    *blocking = sub { };
-}
-
-1;
-
-=pod
-
-=encoding UTF-8
-
-=head1 NAME
-
-Net::HTTPS - Low-level HTTP over SSL/TLS connection (client)
-
-=head1 VERSION
-
-version 6.22
-
-=head1 DESCRIPTION
-
-The C<Net::HTTPS> is a low-level HTTP over SSL/TLS client.  The interface is the same
-as the interface for C<Net::HTTP>, but the constructor takes additional parameters
-as accepted by L<IO::Socket::SSL>.  The C<Net::HTTPS> object is an C<IO::Socket::SSL>
-too, which makes it inherit additional methods from that base class.
-
-For historical reasons this module also supports using C<Net::SSL> (from the
-Crypt-SSLeay distribution) as its SSL driver and base class.  This base is
-automatically selected if available and C<IO::Socket::SSL> isn't.  You might
-also force which implementation to use by setting $Net::HTTPS::SSL_SOCKET_CLASS
-before loading this module.  If not set this variable is initialized from the
-C<PERL_NET_HTTPS_SSL_SOCKET_CLASS> environment variable.
-
-=head1 ENVIRONMENT
-
-You might set the C<PERL_NET_HTTPS_SSL_SOCKET_CLASS> environment variable to the name
-of the base SSL implementation (and Net::HTTPS base class) to use.  The default
-is C<IO::Socket::SSL>.  Currently the only other supported value is C<Net::SSL>.
-
-=head1 SEE ALSO
-
-L<Net::HTTP>, L<IO::Socket::SSL>
-
-=head1 AUTHOR
-
-Gisle Aas <gisle@activestate.com>
-
-=head1 COPYRIGHT AND LICENSE
-
-This software is copyright (c) 2001 by Gisle Aas.
-
-This is free software; you can redistribute it and/or modify it under
-the same terms as the Perl 5 programming language system itself.
-
-=cut
-
-__END__
-
-#ABSTRACT: Low-level HTTP over SSL/TLS connection (client)
-