File Coverage

blib/lib/Proc/ForkSafe.pm

Criterion	Covered	Total	%
statement	8	26	30.7
branch	0	4	0.0
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	11	37	29.7

package Proc::ForkSafe v1.0.0;
use v5.24;
use warnings;
use experimental qw(lexical_subs signatures);

our $TRIAL = 0;


sub wrap ($class, $new, $destroy = undef) {
    my $obj = $new->();
    bless { pid => $$, obj => $obj, new => $new, destroy => $destroy }, $class;
}

sub call ($self, $method, @argv) {
    if ($self->{pid} != $$) {
        $self->{destroy}->($self->{obj}) if $self->{destroy};
        undef $self->{obj};
        $self->{obj} = $self->{new}->();
        $self->{pid} = $$;
    }
    $self->{obj}->$method(@argv);
}

1;
__END__