Skip to content
non-blocking I/O as lambda calculus
Perl Other
  1. Perl 99.6%
  2. Other 0.4%
Branch: master
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Type Name Latest commit message Commit time
Failed to load latest commit information.
eg
lib/IO
t
Changes
MANIFEST
Makefile.PL
README

README

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.
You can’t perform that action at this time.