Danga::Socket - Event loop and event-driven async socket base class
package My::Socket use Danga::Socket; use base ('Danga::Socket'); use fields ('my_attribute'); sub new { my My::Socket $self = shift; $self = fields::new($self) unless ref $self; $self->SUPER::new( @_ ); $self->{my_attribute} = 1234; return $self; } sub event_err { ... } sub event_hup { ... } sub event_write { ... } sub event_read { ... } sub close { ... } $my_sock->tcp_cork($bool); # write returns 1 if all writes have gone through, or 0 if there # are writes in queue $my_sock->write($scalar); $my_sock->write($scalarref); $my_sock->write(sub { ... }); # run when previous data written $my_sock->write(undef); # kick-starts # read max $bytecount bytes, or undef on connection closed $scalar_ref = $my_sock->read($bytecount); # watch for writability. not needed with ->write(). write() # will automatically turn on watch_write when you wrote too much # and turn it off when done $my_sock->watch_write($bool); # watch for readability $my_sock->watch_read($bool); # if you read too much and want to push some back on # readable queue. (not incredibly well-tested) $my_sock->push_back_read($buf); # scalar or scalar ref Danga::Socket->AddOtherFds(..); Danga::Socket->SetLoopTimeout($millisecs); Danga::Socket->DescriptorMap(); Danga::Socket->WatchedSockets(); # count of DescriptorMap keys Danga::Socket->SetPostLoopCallback($code); Danga::Socket->EventLoop();
This is an abstract base class for objects backed by a socket which provides the basic framework for event-driven asynchronous IO, designed to be fast. Danga::Socket is both a base class for objects, and an event loop.
Callers subclass Danga::Socket. Danga::Socket's constructor registers itself with the Danga::Socket event loop, and invokes callbacks on the object for readability, writability, errors, and other conditions.
Because Danga::Socket uses the "fields" module, your subclasses must too.
For now, see servers using Danga::Socket for guidance. For example: perlbal, mogilefsd, or ddlockd.
Note where "CLASS" is used below, normally you would call these methods as:
CLASS
Danga::Socket->method(...);
However using a subclass works too.
The CLASS methods are all methods for the event loop part of Danga::Socket, whereas the object methods are all used on your subclasses.
CLASS->Reset()
Reset all state
CLASS->HaveEpoll()
Returns a true value if this class will use IO::Epoll for async IO.
CLASS->WatchedSockets()
Returns the number of file descriptors which are registered with the global poll object.
CLASS->EnableProfiling()
Turns profiling on, clearing current profiling data.
CLASS->DisableProfiling()
Turns off profiling, but retains data up to this point
CLASS->ProfilingData()
Returns reference to a hash of data in format:
ITEM => [ utime, stime, #calls ]
CLASS->ToClose()
Return the list of sockets that are awaiting close() at the end of the current event loop.
CLASS->OtherFds( [%fdmap] )
Get/set the hash of file descriptors that need processing in parallel with the registered Danga::Socket objects.
CLASS->AddOtherFds( [%fdmap] )
Add fds to the OtherFds hash for processing.
CLASS->SetLoopTimeout( $timeout )
Set the loop timeout for the event loop to some value in milliseconds.
A timeout of 0 (zero) means poll forever. A timeout of -1 means poll and return immediately.
CLASS->DebugMsg( $format, @args )
Print the debugging message specified by the sprintf-style format and args
sprintf
CLASS->AddTimer( $seconds, $coderef )
Add a timer to occur $seconds from now. $seconds may be fractional, but timers are not guaranteed to fire at the exact time you ask for.
Returns a timer object which you can call $timer->cancel on if you need to.
$timer->cancel
CLASS->DescriptorMap()
Get the hash of Danga::Socket objects keyed by the file descriptor (fileno) they are wrapping.
Returns a hash in list context or a hashref in scalar context.
CLASS->EventLoop()
Start processing IO events. In most daemon programs this never exits. See PostLoopCallback below for how to exit the loop.
PostLoopCallback
CLASS->SetPostLoopCallback( CODEREF )
Sets post loop callback function. Pass a subref and it will be called every time the event loop finishes.
Return 1 (or any true value) from the sub to make the loop continue, 0 or false and it will exit.
The callback function will be passed two parameters: \%DescriptorMap, \%OtherFds.
CLASS->new( $socket )
Create a new Danga::Socket subclass object for the given socket which will react to events on it during the EventLoop.
EventLoop
This is normally (always?) called from your subclass via:
$class->SUPER::new($socket);
$obj->tcp_cork( $boolean )
Turn TCP_CORK on or off depending on the value of boolean.
$obj->steal_socket()
Basically returns our socket and makes it so that we don't try to close it, but we do remove it from epoll handlers. THIS CLOSES $self. It is the same thing as calling close, except it gives you the socket to use.
$obj->close( [$reason] )
Close the socket. The reason argument will be used in debugging messages.
$obj->sock()
Returns the underlying IO::Handle for the object.
$obj->set_writer_func( CODEREF )
Sets a function to use instead of syswrite() when writing data to the socket.
syswrite()
$obj->write( $data )
Write the specified data to the underlying handle. data may be scalar, scalar ref, code ref (to run when there), or undef just to kick-start. Returns 1 if writes all went through, or 0 if there are writes in queue. If it returns 1, caller should stop waiting for 'writable' events)
$obj->push_back_read( $buf )
Push back buf (a scalar or scalarref) into the read stream. Useful if you read more than you need to and want to return this data on the next "read".
$obj->read( $bytecount )
Read at most bytecount bytes from the underlying handle; returns scalar ref on read, or undef on connection closed.
$obj->event_read()
Readable event handler. Concrete deriviatives of Danga::Socket should provide an implementation of this. The default implementation will die if called.
$obj->event_err()
Error event handler. Concrete deriviatives of Danga::Socket should provide an implementation of this. The default implementation will die if called.
$obj->event_hup()
'Hangup' event handler. Concrete deriviatives of Danga::Socket should provide an implementation of this. The default implementation will die if called.
$obj->event_write()
Writable event handler. Concrete deriviatives of Danga::Socket may wish to provide an implementation of this. The default implementation calls write() with an undef.
write()
undef
$obj->watch_read( $boolean )
Turn 'readable' event notification on or off.
$obj->watch_write( $boolean )
Turn 'writable' event notification on or off.
$obj->dump_error( $message )
Prints to STDERR a backtrace with information about this socket and what lead up to the dump_error call.
$obj->debugmsg( $format, @args )
Print the debugging message specified by the sprintf-style format and args.
$obj->peer_ip_string()
Returns the string describing the peer's IP
$obj->peer_addr_string()
Returns the string describing the peer for the socket which underlies this object in form "ip:port"
$obj->local_ip_string()
Returns the string describing the local IP
$obj->local_addr_string()
Returns the string describing the local end of the socket which underlies this object in form "ip:port"
$obj->as_string()
Returns a string describing this socket.
Brad Fitzpatrick <brad@danga.com> - author
Michael Granger <ged@danga.com> - docs, testing
Mark Smith <junior@danga.com> - contributor, heavy user, testing
Matt Sergeant <matt@sergeant.org> - kqueue support, docs, timers, other bits
Not documented enough (but isn't that true of every project?).
tcp_cork only works on Linux for now. No BSD push/nopush support.
License is granted to use and distribute this module under the same terms as Perl itself.
To install Danga::Socket, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Danga::Socket
CPAN shell
perl -MCPAN -e shell install Danga::Socket
For more information on module installation, please visit the detailed CPAN module installation guide.