++ed by:
PLICEASE

1 PAUSE user

Toshio Ito

NAME

AnyEvent::Connector - tcp_connect with transparent proxy handling

SYNOPSIS

    use AnyEvent::Connector;
    
    ## Specify the proxy setting explicitly.
    my $c = AnyEvent::Connector->new(
        proxy => 'http://proxy.example.com:8080',
        no_proxy => ['localhost', 'your-internal-domain.net']
    );
    
    ## Proxy setting from "http_proxy" and "no_proxy" environment variables.
    my $cenv = AnyEvent::Connector->new(
        env_proxy => "http",
    );
    
    ## Same API as AnyEvent::Socket::tcp_connect
    my $guard = $c->tcp_connect(
        "target.hogehoge.org", 80,
        sub {
            ## connect callback
            my ($fh ,$host, $port, $retry) = @_;
            ...;
        },
        sub {
            ## prepare calback
            my ($fh) = @_;
            ...;
        }
    );

DESCRIPTION

AnyEvent::Connector object has tcp_connect method compatible with that from AnyEvent::Socket, and it handles proxy settings transparently.

CLASS METHODS

$conn = AnyEvent::Connector->new(%args)

The constructor.

Fields in %args are:

proxy => STR (optional)

String of proxy URL. Currently only http proxy is supported.

If both proxy and env_proxy are not specified, the $conn will directly connect to the destination host.

If both proxy and env_proxy are specified, setting by proxy is used.

Setting empty string to proxy disables the proxy setting done by env_proxy option.

no_proxy => STR or ARRAYREF of STR (optional)

String or array-ref of strings of domain names, to which the $conn will directly connect.

If both no_proxy and env_proxy are specified, setting by no_proxy is used.

Setting empty string or empty array-ref to no_proxy disables the no_proxy setting done by env_proxy option.

env_proxy => STR (optional)

String of protocol specifier. If specified, proxy settings for that protocol are loaded from environment variables, and $conn is created.

For example, if "http" is specified, http_proxy (or HTTP_PROXY) and no_proxy (or NO_PROXY) environment variables are used to set proxy and no_proxy options, respectively.

proxy and no_proxy options have precedence over env_proxy option.

OBJECT METHOD

$guard = $conn->tcp_connect($host, $port, $connect_cb, $prepare_cb)

Make a (possibly proxied) TCP connection to the given $host and $port.

If $conn->proxy_for($host, $port) returns undef, the behavior of this method is exactly the same as tcp_connect function from AnyEvent::Socket.

If $conn->proxy_for($host, $port) returns a proxy URL, it behaves in the following way.

  • It connects to the proxy, and tells the proxy to connect to the final destination, $host and $port.

  • It runs $connect_cb after the connection to the proxy AND (hopefully) the connection between the proxy and the final destination are both established.

        $connect_cb->($cb_fh, $cb_host, $cb_port, $cb_retry)

    $cb_fh is the filehandle to the proxy. $cb_host and $cb_port are the hostname and port of the proxy.

  • If the TCP connection to the proxy is established but the connection to the final destination fails for some reason, $connect_cb is called with no argument passed (just as the original tcp_connect does).

  • If given, it runs $prepare_cb before it starts connecting to the proxy.

$proxy = $conn->proxy_for($host, $port)

If $conn uses a proxy to connect to the given $host and $port, it returns the string of the proxy URL. Otherwise, it returns undef.

SEE ALSO

REPOSITORY

https://github.com/debug-ito/AnyEvent-Connector

BUGS AND FEATURE REQUESTS

Please report bugs and feature requests to my Github issues https://github.com/debug-ito/AnyEvent-Connector/issues.

Although I prefer Github, non-Github users can use CPAN RT https://rt.cpan.org/Public/Dist/Display.html?Name=AnyEvent-Connector. Please send email to bug-AnyEvent-Connector at rt.cpan.org to report bugs if you do not have CPAN RT account.

AUTHOR

Toshio Ito, <toshioito at cpan.org>

LICENSE AND COPYRIGHT

Copyright 2018 Toshio Ito.

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.