view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.05 1998-07-20
  - queuing, waiting
  - Status method

0.04 1998-07-20
  - registering forces class to be child of Event
  - add waitForEvents

0.03 1998-07-18
  - Event::watchvar now passes $ref to callback
  - added use attrs qw(locked method) to all subs, and code to
    ensure this will work on pre-threaded perl
  - Event.xs Fixed so will compile with threaded perl
  - Event::timer Added -hard option
  - Tweaks to keys dispatchAsyncEvents()
  - added Time::HiRes
  - moved idle events into sub-module
  - Makefile.PL removed INSTALLDIRS => 'perl'

0.01 1998-01-26
  - Initial

demo/msg.pm  view on Meta::CPAN

use Event;
use IPC::Msg;

register Event;

my %MSG;
my $LABEL = "msg000000";

sub new {
    use attrs qw(locked method);

    my $class = shift;
    my %arg = @_;
    my $msg = $arg{'-msg'};
    my $cb  = $arg{'-callback'};

    croak 'Event->msg( -msg => $msg, -callback => $coderef)'
	unless(UNIVERSAL::isa($msg,'IPC::Msg')
		&& UNIVERSAL::isa($cb,'CODE'));

demo/semaphore.pm  view on Meta::CPAN

use Event;
use IPC::Semaphore;

register Event;

my $LABEL = "sem000000";
my %SEM = ();

sub new {
    use attrs qw(locked method);

    my $class = shift;
    my %arg = @_;
    my $sem = $arg{'-semaphore'};
    my $op = $arg{'-op'};
    my $cb = $arg{'-callback'};

    croak 'Event->semaphore( -semaphore => $sem, -op => $arrayref, -callback => $coderef)'
	unless(UNIVERSAL::isa($msg,'IPC::Semaphore')
		&& UNIVERSAL::isa($op,'ARRAY')