Select Code to Download

SV *
xs_new( ... )
...
    size_t used= constructor( buf, len, ... );
    // Tell Perl how much of the buffer is actually in use:
    SvCUR_set( RETVAL, used );