dk / io-lambda Goto Github PK

IO::Lambda - nonblocking IO in functional style
===============================================

This module is another attempt to fight the horrors of non-blocking I/O
programming. The simplicity of the sequential programming is only available
when one employs threads, coroutines, or coprocesses. Otherwise state machines
are to be built, often quite complex, which fact doesn't help the clarity of
the code. This module uses closures to achieve clarity of sequential
programming with single-process, single-thread, non-blocking I/O.

The approach implemented in this module is strongly based on closures.
It emulates the blocking style, so the collection of states is local, and can
be collected under single subroutine. For example, a dumbed down HTTP protocol
can be described like in the following scheme:


	writable {
		print $fh "GET /\r\n\r\n" or die;
		readable {
			sysread $fh or die;
			read_again;
		}
	}

IO::Lambda features syntax where one can indeed use the lambda syntax.
Below is a full-functioning code:

	use strict;
	use IO::Lambda qw(:lambda);
	use IO::Socket::INET;
	my $q = lambda {
		my ( $socket, $url) = @_;
		context $socket;
		writable {
			print $socket "GET $url HTTP/1.0\r\n\r\n";
			my $buf = '';
			readable {
				return $buf unless 
					sysread( $socket, $buf, 1024, length($buf));
				again;
			}
		}
	};
	print $q-> wait( 
		IO::Socket::INET-> new( 
			PeerAddr => 'www.perl.com', 
			PeerPort => 80 
		),
		'/index.html'
	);

For more examples, see eg/ directory.