FCP/Event/Event.pm

package Net::FCP::Event::Event;

use Event ();

sub new_from_fh {
   my ($class, $fh) = @_;
   bless \(my $x = Event->io (
         fd   => $fh,
         poll => 'e',
         cb   => sub { die "no callback set for watcher" },
      )), $class;
}

sub cb {
   my ($self, $cb) = @_;
   $$self->cb ($cb);
   $self;
}

sub poll {
   my ($self, $r, $w, $e) = @_;
   $$self->poll (
     ($r ? "r" : "") .
     ($w ? "w" : "") .
     ($e ? "e" : "")
   );
   $self;
}

sub DESTROY {
   my ($self) = @_;

   $$self->cancel;
}

#############

sub new_signal {
   my $class = shift;

   bless \my $x, $class;
}

sub send {
   # nop
}

sub wait {
   Event::one_event();
}

1;

Revision:	1.3
Committed:	Thu Dec 1 19:08:36 2005 UTC (20 years, 9 months ago) by root
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.2:	+0 -0 lines
State:	*FILE REMOVED*
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	package Net::FCP::Event::Event;
2
3	root	1.2	use Event ();
4	root	1.1
5			sub new_from_fh {
6			my ($class, $fh) = @_;
7			bless \(my $x = Event->io (
8			fd => $fh,
9			poll => 'e',
10			cb => sub { die "no callback set for watcher" },
11			)), $class;
12			}
13
14			sub cb {
15			my ($self, $cb) = @_;
16			$$self->cb ($cb);
17			$self;
18			}
19
20			sub poll {
21			my ($self, $r, $w, $e) = @_;
22			$$self->poll (
23			($r ? "r" : "") .
24			($w ? "w" : "") .
25			($e ? "e" : "")
26			);
27			$self;
28			}
29
30			sub DESTROY {
31			my ($self) = @_;
32
33			$$self->cancel;
34			}
35
36			#############
37
38			sub new_signal {
39			my $class = shift;
40
41			bless \my $x, $class;
42			}
43
44			sub send {
45			# nop
46			}
47
48			sub wait {
49			Event::one_event();
50			}
51
52			1;
53