Event-Lib
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
t/50_cleanup.t view on Meta::CPAN
package MyEvent;
use Event::Lib;
use base qw/Event::Lib::base Event::Lib::timer/;
my $_DESTROY = "not called";
sub new {
my $class = shift;
bless Event::Lib::timer_new(shift) => $class;
}
sub DESTROY {
$_DESTROY = "called";
shift->SUPER::DESTROY;
}
package main;
use Event::Lib;
use Test;
BEGIN { plan tests => 4; }
MyEvent->new(sub {})->add(0.25);
ok($_DESTROY, "not called");
event_one_loop;
ok($_DESTROY, "called", "Event::Lib::timer::DESTROY called too late");
$_DESTROY = "not called";
MyEvent->new(sub {(shift)->add(1);})->add(0.25);
ok($_DESTROY, "not called");
event_one_loop;
ok($_DESTROY, "not called", "Event::Lib::timer::DESTROY erroneously called");
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.752 second using v1.00-cache-2.02-grep-82fe00e-cpan-503542c4f10 )