TYPEMAP
B::OP           T_OP_OBJ
B::UNOP         T_OP_OBJ
B::BINOP        T_OP_OBJ
B::LOGOP        T_OP_OBJ
B::CONDOP       T_OP_OBJ
B::LISTOP       T_OP_OBJ
B::PMOP         T_OP_OBJ
B::SVOP         T_OP_OBJ
B::GVOP         T_OP_OBJ
B::PVOP         T_OP_OBJ
B::CVOP         T_OP_OBJ
B::LOOP         T_OP_OBJ
B::COP          T_OP_OBJ
B::SV           T_SV_OBJ
B::PV           T_SV_OBJ
B::IV           T_SV_OBJ
B::NV           T_SV_OBJ
B::PVMG         T_SV_OBJ
B::PVLV         T_SV_OBJ
B::BM           T_SV_OBJ
B::RV           T_SV_OBJ
B::GV           T_SV_OBJ
B::CV           T_SV_OBJ
B::HV           T_SV_OBJ
B::AV           T_SV_OBJ
B::IO           T_SV_OBJ
B::MAGIC        T_MG_OBJ
SSize_t         T_IV
STRLEN          T_IV
INPUT
T_OP_OBJ
        if (SvROK($arg)) {
            IV tmp = SvIV((SV*)SvRV($arg));
            $var = ($type) tmp;
        }
        else
            croak(\"$var is not a reference\")
T_SV_OBJ
        if (SvROK($arg)) {
            IV tmp = SvIV((SV*)SvRV($arg));
            $var = ($type) tmp;
        }
        else
            croak(\"$var is not a reference\")
T_MG_OBJ
        if (SvROK($arg)) {
            IV tmp = SvIV((SV*)SvRV($arg));
            $var = ($type) tmp;
        }
        else
            croak(\"$var is not a reference\")
OUTPUT
T_OP_OBJ
        sv_setiv(newSVrv($arg, cc_opclassname((OP*)$var)), (IV)$var);
T_SV_OBJ
        make_sv_object(($arg), ($var));
T_MG_OBJ
        sv_setiv(newSVrv($arg, "B::MAGIC"), (IV)$var);