Anarres::Mud::Driver::Compiler::Type	T_BLESS_SVREF

############################
INPUT
T_BLESS_SVREF
	if (sv_isa($arg, \"${ntype}\"))
		$var = SvPV_nolen(SvRV($arg));
	else
		croak(\"$var is not of type ${ntype}\");
############################
OUTPUT
T_BLESS_SVREF
	sv_setsv($arg, sv_bless(newRV_noinc(newSVpv($var, 0)),
					gv_stashpv("$Package", TRUE)));