#define PackRaw\
     {\
        HV * h;\
        if (SvRV(data) &&\
           (SvTYPE(h=(HV*)SvRV(data))==SVt_PVHV)) {\  
              int count;\
              PUSHMARK(sp);\
              XPUSHs(data);\
              PUTBACK;\
              count = perl_call_method("Raw", G_SCALAR);\
              SPAGAIN;\
              if (count != 1) {\
                 SV ** s = hv_fetch(h, "raw", 3, 0);\
                 if (s)\
                    data = *s;\
              } else {\
                 data = POPs;\
                 PUTBACK;\
              }\
        }\
     }