my $obj = bless [], 'X';
share $obj;
my $x:shared = $obj;