if (sv_derived_from(sv, "Expected::Package"))
       buffer_pointer = (buffer_type*) SvIV((SV*)SvRV(perlobject));