# mason component _getSharedData
my $value = $m->cache->get("key");
return $value if(defined($value));

# compute $value here since it hasn't been stored yet
$value = $$;

$m->cache->set(key=>$value);
return $value

##</code><code>##

my $value = $m->comp('/_getSharedData');

##</code><code>##

$m->cache(cache_class => 'SharedMemoryCache')->set(key=>$value);
$value = $m->cache(cache_class => 'SharedMemoryCache')->get("key");