The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

AnyEvent::Connection - Base class for tcp connectful clients

SYNOPSIS

    package MyTCPClient;
    use base 'AnyEvent::Connection';

    package main;
    my $client = MyTCPClient->new(
        host => 'localhost',
        port => 12345,
    );
    $client->reg_cb(
        connected => sub {
            my ($client,$connection,$host,$port) = @_;
            # ...
            $client->after(
                $interval, sub {
                    # Called after interval, if connection still alive
                }
            );
        }
        connfail = sub {
            my ($client,$reason) = @_;
            # ...
        },
        disconnect => sub {
            my ($client,$reason) = @_;
        },
        error => sub {
            my ($client,$error) = @_;
            # Called in error conditions for callbackless methods
        },
    );
    $client->connect;

EVENTS

connected ($connobject, $host, $port)

Called when client get connected.

connfail

Called, when client fails to connect

disconnect

Called whenever client disconnects

error

Called in error conditions for callbackless methods (for ex: when calling push_write on non-connected client)

OPTIONS

host

Host to connect to

port

Port to connect to

timeout [ = 3 ]

Connect/read/write timeout in seconds

reconnect [ = 1 ]

If true, automatically reconnect after disconnect/connfail after delay $reconnect seconds

rawcon [ = AnyEvent::Connection::Raw ]

Class that implements low-level connection

OPERATION METHODS

new

Cleates connection object (see OPTIONS)

connect

Begin connection

disconnect ($reason)

Close current connection. reason is optional

reconnect

Close current connection and establish a new one

after($interval, $cb->())

Helper method. AE::timer(after), associated with current connection

Will be destroyed if connection is destroyed, so no timer invocation after connection destruction.

periodic($interval, $cb->())

Helper method. AE::timer(periodic), associated with current connection

Will be destroyed if connection is destroyed, so no timer invocation after connection destruction.

periodic_stop()

If called within periodic callback, periodic will be stopped.

    my $count;
    $client->periodic(1,sub {
        $client->periodic_stop if ++$count > 10;
    });
    
    # callback will be called only 10 times;
destroy

Close connection, destroy all associated objects and timers, clean self

CONNECT METHODS

When connected, there are some methods, that proxied to raw connection or to AE::Handle

push_write

See AE::Handle::push_write

push_read

See AE::Handle::push_read

unshift_read

See AE::Handle::unshift_read

say

Same as push_write + newline

reply

Same as push_write + newline

For next methods there is a feature. Callback will be called in any way, either by successful processing or by error or object destruction

recv($bytes, %args, cb => $cb->())

Similar to

    $fh->push_read(chunk => $bytes, $cb->());
command($data, %args, cb => $cb->());

Similar to

    $fh->push_write($data);
    $fh->push_read(line => $cb->());

AUTHOR

Mons Anderson, <mons at cpan.org>

BUGS

Please report any bugs or feature requests to bug-anyevent-connection at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=AnyEvent-Connection. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc AnyEvent::Connection

You can also look for information at:

ACKNOWLEDGEMENTS

COPYRIGHT & LICENSE

Copyright 2009 Mons Anderson, all rights reserved.

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