typemap

{
        $type typemap__struct = ($type)$arg;
        SV *x;
        SV *y;
        sv_setnv(x, typemap__struct->x);
        sv_setnv(y, typemap__struct->y);
        HV *point = newHV();
        hv_store((HV *)point, \"x\", 1, x, 0);
        hv_store((HV *)point, \"y\", 1, y, 0);
        SV *ref = newRV_inc((SV*)point);
        sv_setsv((SV *)ref, (SV *)$var);
}