LWP-Protocol-connect

 view release on metacpan or  search on metacpan

CHANGES  view on Meta::CPAN

-----------------------------------------
version 6.09 at 2014-01-07 12:28:32 +0000
-----------------------------------------

  Change: 30f3cebcc42d6df3316e9192b486181f48d97dc6
  Author: Markus Benning <me@w3r3wolf.de>
  Date : 2014-01-07 04:19:20 +0000

    Merge pull request #5 from olegwtf/master

    IO::Socket::SSL->start_SSL should be used instead of
    IO::Socket::SSL->new_from_fd 

  Change: c43f1588eeb6580de09d2b26b006776cd92b76c2
  Author: Oleg G <verdrehung@gmail.com>
  Date : 2014-01-05 18:23:10 +0000

    use IO::Socket::SSL->start_SSL instead of
    IO::Socket::SSL->new_from_fd to prevent {io_socket_timeout} erasing 

-----------------------------------------
version 6.08 at 2013-12-28 16:09:29 +0000
-----------------------------------------

  Change: eedee661025678e583f23023485dc950d18b79ba
  Author: Markus Benning <me@w3r3wolf.de>
  Date : 2013-12-28 17:09:29 +0000

    -add a VERSION to URI::connect 

META.json  view on Meta::CPAN

   "name" : "LWP-Protocol-connect",
   "prereqs" : {
      "configure" : {
         "requires" : {
            "ExtUtils::MakeMaker" : "6.30"
         }
      },
      "runtime" : {
         "requires" : {
            "HTTP::Request" : "0",
            "IO::Socket::SSL" : "0",
            "LWP::Protocol" : "0",
            "LWP::Protocol::http" : "0",
            "LWP::Protocol::https" : "0",
            "LWP::UserAgent" : "0",
            "URI::http" : "0",
            "base" : "0",
            "strict" : "0",
            "warnings" : "0"
         }
      },

META.yml  view on Meta::CPAN

  ExtUtils::MakeMaker: 6.30
dynamic_config: 0
generated_by: 'Dist::Zilla version 4.300020, CPAN::Meta::Converter version 2.120921'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: LWP-Protocol-connect
requires:
  HTTP::Request: 0
  IO::Socket::SSL: 0
  LWP::Protocol: 0
  LWP::Protocol::http: 0
  LWP::Protocol::https: 0
  LWP::UserAgent: 0
  URI::http: 0
  base: 0
  strict: 0
  warnings: 0
resources:
  bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=LWP-Protocol-connect

Makefile.PL  view on Meta::CPAN

  },
  "CONFIGURE_REQUIRES" => {
    "ExtUtils::MakeMaker" => "6.30"
  },
  "DISTNAME" => "LWP-Protocol-connect",
  "EXE_FILES" => [],
  "LICENSE" => "perl",
  "NAME" => "LWP::Protocol::connect",
  "PREREQ_PM" => {
    "HTTP::Request" => 0,
    "IO::Socket::SSL" => 0,
    "LWP::Protocol" => 0,
    "LWP::Protocol::http" => 0,
    "LWP::Protocol::https" => 0,
    "LWP::UserAgent" => 0,
    "URI::http" => 0,
    "base" => 0,
    "strict" => 0,
    "warnings" => 0
  },
  "VERSION" => "6.09",

lib/LWP/Protocol/connect.pm  view on Meta::CPAN

This will cause LWP::UserAgent to choose the right LWP::Authen::<method> module to
add the authentication and retry.

=head1 DESCRIPTION

The LWP::Protocol::connect module provides support for using https over
a proxy via the HTTP/CONNECT method.

=head1 SEE ALSO

L<IO::Socket::SSL>, L<LWP::Protocol::https>

=head1 COPYRIGHT

Copyright 2013 Markus Benning <me@w3r3wolf.de>

This library is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

lib/LWP/Protocol/https/connect/Socket.pm  view on Meta::CPAN

package LWP::Protocol::https::connect::Socket;

use strict;
use warnings;

our $VERSION = '6.09'; # VERSION

require LWP::Protocol::https;
use IO::Socket::SSL;
use LWP::Protocol::connect::Socket::Base;
our @ISA = qw(LWP::Protocol::connect::Socket::Base IO::Socket::SSL LWP::Protocol::https::Socket);

sub new {
    my $class = shift;
    my %args = @_;
    my $conn = $class->_proxy_connect( \%args );

    unless ($class->start_SSL($conn, %args)) {
        my $status = 'error while setting up ssl connection';
        if( $@ ) {
            $status .= " (".$@.")";