use strict;
use warnings;
use feature 'say';

use MCE::Shared;
use Data::Dumper;

# first time, spawns the MCE::Shared::Server manager

my $va1 = MCE::Shared->scalar('foo');
my $ar1 = MCE::Shared->array('a'..'c');
my $ha1 = MCE::Shared->hash('foo' => 'bar');

say Dumper $ha1;
say Dumper $ha1->export;

# construction via the TIE interface

my $va2 = tie my $va, 'MCE::Shared', 'foo';
my $ar2 = tie my @ar, 'MCE::Shared', 'a'..'c';
my $ha2 = tie my %ha, 'MCE::Shared', 'foo' => 'bar';

say Dumper $ha2;
say Dumper $ha2->export; # or Dumper tied(%ha)->export;

__END__

$VAR1 = bless( [
                 3,
                 'MCE::Shared::Hash'
               ], 'MCE::Shared::Object' );

$VAR1 = bless( {
                 'foo' => 'bar'
               }, 'MCE::Shared::Hash' );

$VAR1 = bless( [
                 6,
                 'MCE::Shared::Hash'
               ], 'MCE::Shared::Object' );

$VAR1 = bless( {
                 'foo' => 'bar'
               }, 'MCE::Shared::Hash' );