Proc::ForkSafe - help make objects fork safe

NAME  SYNOPSIS  DESCRIPTION  COPYRIGHT AND LICENSE 

---

NAME

Proc::ForkSafe − help make objects fork safe

SYNOPSIS

use Proc::ForkSafe;
package MyPersistentTCPClient {
sub new {
...
}
sub request {
...
}
}
my $client = Proc::ForkSafe−>wrap(sub { MyPersistentTCPClient−>new });
my $res = $client−>call(request => @some_argv);
my $pid = fork // die;
if ($pid == 0) {
# in child process, $client will be reinitialized
my $res2 = $client−>call(request => @some_argv);
...
exit;
}
waitpid $pid, 0;

DESCRIPTION

Proc::ForkSafe helps make objects fork safe.

COPYRIGHT AND LICENSE

Copyright 2023 Shoichi Kaji <[email protected]>

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

---