#!/usr/bin/env perl

use strict;
use warnings;
use feature qw(say);
use MCE::Shared;

package MyClass {
    use Class::Tiny { foo => q(bar) };
};

my $object = MCE::Shared->share( { module => 'MyClass' } );

say q(Before forking: ) . $object->foo;

my $pid = fork;

if ( $pid == 0 ) {
    $object->foo(q(baz));
    exit;
}
else {
    waitpid $pid, 0;
}

say q(After forking: ) . $object->foo;

__END__