| Current Path : /usr/share/doc/perl-Event/t/ |
| Current File : //usr/share/doc/perl-Event/t/delete.t |
#!/usr/bin/perl -w
use strict;
use Test; plan tests => 1;
use Event 0.40 qw(loop unloop);
package Foo;
my $foo=0;
sub DESTROY { ++$foo }
package main;
my $e = Event->timer(after => 0,
cb => sub { delete shift->w->{foo}; unloop });
$e->{foo} = bless [], 'Foo';
loop();
ok $foo;