around 'new' => sub {
        my $orig=shift;
        my $class=shift;
        my $self=$class->$orig(@_);
        my $shared_self : shared = shared_clone($self);
        return $shared_self;
    };

##</code><code>##

    my $obj :shared =new TheObject();

##</code><code>##

 
    my $shared_self : shared = shared_clone($self);