/usr/lib/perl5/Tk/Eventloop.pod is in perl-tk 1:804.029-1.1ubuntu2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 | =head1 NAME
Tk::Event - ToolKit for Events
=for category Implementation
=head1 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])
=head1 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.
=cut
|