package MyDB;
use DBIx::LazyMethod::MSSQL;
use vars qw(@ISA);
@ISA = qw(DBIx::LazyMethod::MSSQL);

sub new {
	my $class = shift;

	my $db = $class->SUPER::new(
		data_source  => 'dbi:ODBC:jobodbc2',
		user => 'xxx',
		pass => 'xxx',
		attr => { PrintError => 0, RaiseError => 0, LongReadLen => 65536, 'AutoCommit' => 1 },
		methods => {
			FetchUserInfo => {
				def => { adminid => 1 },
				ret => '%',
			},
			GetServerMailAddress => '$',
			GetFieldTitle => {
				def => {siteid => undef},
				ret => '$'
			}
		},
	);

	return $db;
}

1;