use MCE::Shared;

my $val = MCE::Shared->scalar(0);

$val->incr();
$val->incrby(20);
$val->set(40);

my @pairs = ('aa'..'zz');

my $oh = MCE::Shared->ordhash();
my $ha = MCE::Shared->hash();

$oh->assign( @pairs );
$ha->assign( @pairs );

$ha->set( counter => 0 );
$ha->incr('counter');
$ha->incrby('counter', 2);

my $val = $ha->get('counter');

# Scoping works similarly to lexical scoping in Perl.
# The shared object is destroyed upon leaving the scope.

{
   my $ar = MCE::Shared->array(1..9);
   $ar->assign('aa'..'zz');
}


##</code><code>##

use MCE::Shared;

my $obj = MCE::Shared->scalar(0);

$obj->filter_store_value( \&code );
$obj->filter_fetch_value( \&code );