use warnings;
use base qw(Danga::Socket);
use fields qw(rd);
+
+my $ENABLED;
+sub enabled { $ENABLED }
+sub enable { $ENABLED = 1 }
my $singleton;
my $asapq = [ [], undef ];
my $nextq = [ [], undef ];
END {
_run_asap();
- _run_next();
- _run_later();
+ _run_all($nextq);
+ _run_all($laterq);
}
1;