AnyEvent-ForkObject

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

		-Xn AnyEvent::ForkObject
0.02  Mon Feb 28 00:00:21 MSK 2011
        - fixed MANIFEST
        - added debian infrastructure

0.04  Mon Feb 28 00:40:44 MSK 2011
        - clean zombies.

0.05  Tue Mar  1 10:14:18 MSK 2011
        - perldoc
        - separate global and usual destructor to avoid EV crash

0.06  Wed Mar  2 14:24:59 MSK 2011
        - destructors work properly

0.07  Fri Mar  4 09:34:26 MSK 2011
	- test verbose = TRUE

0.08  Sun Mar  6 11:36:52 MSK 2011
        - detect if child was killed properly (thanks for CPAN testers report).

debian/changelog  view on Meta::CPAN

libanyevent-forkobject-perl (0.09-1) unstable; urgency=low

  * Separate global and usual destructors.
  * Add watch file.

 -- Dmitry E. Oboukhov <unera@debian.org>  Fri, 29 Jul 2011 15:10:28 +0400

libanyevent-forkobject-perl (0.08-1) unstable; urgency=low

  * Fix child status detect, thanks for CPAN testers report.

 -- Dmitry E. Oboukhov <unera@debian.org>  Sun, 06 Mar 2011 11:34:55 +0300

debian/control  view on Meta::CPAN

Source: libanyevent-forkobject-perl
Section: perl
Homepage: http://search.cpan.org/perldoc?AnyEvent::ForkObject
Maintainer: Dmitry E. Oboukhov <unera@debian.org>
VCS-Browser: http://git.uvw.ru/?p=anyevent-forkobject;a=summary
Build-Depends: debhelper (>= 7), cdbs,
    libanyevent-tools-perl,
    libdevel-globaldestruction-perl,
    libanyevent-serialize-perl
Standards-Version: 3.9.1
Priority: extra

Package: libanyevent-forkobject-perl
Depends: ${perl:Depends}, ${misc:Depends},
    libanyevent-tools-perl,
    libanyevent-serialize-perl,
    libdevel-globaldestruction-perl
Architecture: all
Description: fork jail for AnyEvent
 The module provides non-blocking interface for perl objects.

lib/AnyEvent/ForkObject.pm  view on Meta::CPAN

}


sub DESTROY
{
    my ($self) = @_;
    $self->{destroyed} = 1;
    $self->{handle}->push_write("'bye'\n") if $self->{handle};
    delete $self->{handle};

    return if in_global_destruction;

    # kill zombies
    my $cw;
    $cw = AE::child $self->{pid} => sub {
        my ($pid, $code) = @_;
        undef $cw;
    };
}

sub _start_server

lib/AnyEvent/ForkObject.pm  view on Meta::CPAN

        cb        => $cb,
        wantarray => $wantarray
    );
    return;
}

sub DESTROY
{
    # You can call DESTROY by hand
    my ($self, $cb) = @_;
    return if in_global_destruction;
    $cb ||= sub {  };
    my $fo = $self->{fo};
    unless (blessed $$fo) {
        $cb->(fatal => 'Child process was already destroyed');
        return;
    }

    $$fo -> do(
        _invocant   => $self->{no},
        method      => 'DESTROY',