Select Code to Download

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

    my $obj :shared =new TheObject();

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