DB_ENV *	DB_ENV
DB_TXN *	DB_TXN
DB *		DB
SV8 *		T_SV8

INPUT

T_SV8
	($var) = $arg;
        if (SvPOKp ($var) && !sv_utf8_downgrade ($var, 1))
          croak (\"\\\"%s\\\" argument must be byte/octet-encoded\", \"$var\")

DB_ENV
        SvPTR ($var, $arg, DB_ENV *, BDB::Env);

DB_TXN
        SvPTR ($var, $arg, DB_TXN *, BDB::Txn);

DB
        SvPTR ($var, $arg, DB *, BDB::Db);

OUTPUT

DB_ENV
	sv_setref_pv ($arg, "BDB::Env", (void *)$var);

DB_TXN
	sv_setref_pv ($arg, "BDB::Txn", (void *)$var);

DB
	sv_setref_pv ($arg, "BDB::Db", (void *)$var);