# $Header: /home/joe/cvs/Msql-modules/MsqlPerl/typemap,v 1.1804 1997/08/30 15:58:01 joe Exp $ 

TYPEMAP
my_dbh_t		T_DBH
my_sth_t		T_STH

INPUT
T_DBH
	if (sv_isa($arg, (char*) Package))
	    $var = (HV*)SvRV($arg);
	else
	    croak(\"$var is not of type %s\", Package)

T_STH
	if (sv_isa($arg, (char*) StPackage))
	    $var = (HV*)SvRV($arg);
	else
	    croak(\"$var is not of type %s\", StPackage)
