in reply to Modifying an object in a fork
It's trivial using the mighty MCE::Shared by marioroy, two extra lines:
Output:package MyClass { use Moose; has foo => ( is => 'rw', default => 'bar' ); }; package main { use strict; use warnings; use feature 'say'; use MCE::Shared; my $obj = MCE::Shared->share({ module => 'MyClass' }); say 'Before forking: ' . $obj->foo; my $pid = fork; if ( $pid == 0 ) { $obj->foo('baz'); exit; } else { waitpid $pid, 0; } say 'After forking: ' . $obj->foo; };
For details see the documentation on sharing objects between processes with MCE::Shared.$ perl 1210687.pl Before forking: bar After forking: baz
Hope this helps!
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Modifying an object in a fork
by marioroy (Prior) on Apr 29, 2018 at 11:03 UTC | |
|
Re^2: Modifying an object in a fork
by nysus (Parson) on Mar 14, 2018 at 18:05 UTC |