view release on metacpan or  search on metacpan

lib/Async/Event/Interval.pm  view on Meta::CPAN

}
sub DESTROY {
    if (defined $_[0]) {
        $_[0]->stop if $_[0]->pid;
    }

    # On events with interval of zero, ForkManager runs finish(), which
    # calls our destroy method. We only want to blow away the %events
    # hash if we truly go out of scope

    return if (caller())[0] eq 'Parallel::ForkManager::Child';

    delete $events{$_[0]->id};
}
sub _end {
    if (! keys %events) {
        IPC::Shareable::clean_up_protected(_shm_lock());
    }
}
END {
    _end();