#! perl -slw
use strict;
package O;
use Inline C => Config => BUILD_NOISY => 1;
use Inline C => <<'END_C',  NAME => 'xso', CLEAN_AFTER_BUILD => 0;

typedef struct {
    SV**sv;
} O;


void *mem( size_t size ) {
    void *p;
    Newx( p, size, char );
    return p;
}

SV *new( char *package ) {
    O *o = (O*)mem( sizeof( O ) );
    SV *rv = newRV( (SV*)o );

    o->sv = mem( sizeof( SV* ) );

    sv_bless( rv, gv_stashpv( package, 0 ) );
    SvREADONLY_on( rv );
    printf( "N:rv:%p o:%p\n", rv, o );
    return rv;
}

int set( SV *rv, SV *in ) {
    O *o = ( *(O**)SvUV( rv ) ) - 1;
    printf( "S:rv;%p o:%p\n", rv, o );
    o->sv = newSVsv( in );
    return 1;
}

SV *get( SV *rv ) {
    O *o = ( *(O**)SvUV( rv ) ) - 1;
    SV *old = newSVsv( o->sv );

    SvREFCNT_inc( old );

    printf( "G:rv;%p o:%p old:%p\n", rv, o, o->sv );
    return old;
}


END_C
package main;
use threads;
use Devel::Peek;

my $o = O->new();
print $o;

$o->set( "abcde" );
print $o->get();

print "\nthreaded\n";

async {
    print $o->get( );
    $o->set( 12345 );
    print $o->get( );
}->join;

print $o->get();