return unless defined $dest;
my @dests = grep $_ > 0, ref $dest eq 'ARRAY' ? map int, grep defined, @$dest
: int $dest;
return unless defined $dest;
my @dests = grep $_ > 0, ref $dest eq 'ARRAY' ? map int, grep defined, @$dest
: int $dest;
while (defined(my $bit = $self->pop)) {
my @sigs = (SIGUSR1, SIGUSR2);
my $d = $self->{delay} * 1_000_000;
$d -= usleep $d while $d > 0;
kill $sigs[$bit] => @dests;
}
while (defined(my $bit = $self->pop)) {
my @sigs = (SIGUSR1, SIGUSR2);
my $d = $self->{delay} * 1_000_000;
$d -= usleep $d while $d > 0;
kill $sigs[$bit] => @dests;
}