tk::eventloop(3pm) [debian man page]

Eventloop(3pm)						User Contributed Perl Documentation					    Eventloop(3pm)

NAME

       Tk::Event - ToolKit for Events

SYNOPSIS

	use Tk::Event;

	Tk::Event->fileevent(*FH, 'readable' => callback);

	Tk::Event->lineavail(*FH, callback);

	use Tk::Event::Signal qw(INT);

	$SIG{'INT'} = callback;

	use Tk::Event::process;

	Tk::Event->proc($pid, callback);

	QueueEvent(callback [, position])

DESCRIPTION

       That is better than nothing but still hard to use. Most scripts want higher level result (a line, a "block" of data etc.)

       So it has occured to me that we could use new-ish TIEHANDLE thus:

	my $obj = tie SOMEHANDLE,Tk::Event::IO;

	while (<SOMEHANDLE>)
	 {
	 }

       Then the READLINE routine registers a callback and looks something like:

	sub READLINE
	 {
	  my $obj = shift;
	  Event->io(*$obj,'readable',sub { sysread(*$obj,${*$obj},1,length(${*$obj}) });
	  my $pos;
	  while (($pos = index(${*$obj},$/) < 0)
	   {
	    DoOneEvent();
	   }
	  Event->io(*$obj,'readable',''); # unregister
	  $pos += length($/);
	  my $result = substr(${*$obj},0,$pos);
	  substr(${*$obj},0,$pos) = '';
	  return $result;
	 }

       This is using the scalar part of the glob representing the _inner_ IO as a buffer in which to accumulate chars.

perl v5.14.2							    2010-05-29							    Eventloop(3pm)

Event::RPC::Connection(3pm)				User Contributed Perl Documentation			       Event::RPC::Connection(3pm)

NAME

       Event::RPC::Connection - Represents a RPC connection

SYNOPSIS

       Note: you never create instances of this class in your own code, it's only used internally by Event::RPC::Server. But you may request
       connection objects using the connection_hook of Event::RPC::Server and then having some read access on them.

	 my $connection = Event::RPC::Server::Connection->new (
	     $rpc_server, $client_socket
	 );

       As well you can get the currently active connection from your Event::RPC::Server object:

	 my $server	= Event::RPC::Server->instance;
	 my $connection = $server->get_active_connection;

DESCRIPTION

       Objects of this class represents a connection from an Event::RPC::Client to an Event::RPC::Server instance. They live inside the server and
       the whole Client/Server protocol is implemented here.

READ ONLY ATTRIBUTES

       The following attributes may be read using the corresponding get_ATTRIBUTE accessors:

       cid The connection ID of this connection. A number which is unique for this server instance.

       server
	   The Event::RPC::Server instance this connection belongs to.

       is_authenticated
	   This boolean value reflects whether the connection is authenticated resp. whether the client passed correct credentials.

       auth_user
	   This is the name of the user who was authenticated successfully for this connection.

       client_oids
	   This is a hash reference of object id's which are in use by the client of this connection. Keys are the object ids, value is always 1.
	   You can get the corresponding objects by using the

	     $connection->get_client_object($oid)

	   method.

	   Don't change anything in this hash, in particular don't delete or add entries. Event::RPC does all the necessary garbage collection
	   transparently, no need to mess with that.

AUTHORS

	 Joern Reder <joern at zyn dot de>

COPYRIGHT AND LICENSE

       Copyright (C) 2002-2006 by Joern Reder, All Rights Reserved.

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

perl v5.10.1							    2008-10-25					       Event::RPC::Connection(3pm)