File Coverage

blib/lib/Proc/ForkSafe.pm

Criterion	Covered	Total	%
statement	6	16	37.5
branch	0	4	0.0
condition			n/a
subroutine	2	4	50.0
pod	0	2	0.0
total	8	26	30.7

package Proc::ForkSafe;
use strict;
use warnings;

our $VERSION = '0.001';

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

sub call {
    my ($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__