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;

##</code><code>##

use MyDB;
my $db = MyDB->new();

print Dumper($db->FetchUserInfo(userid => '577'));

my $email;
$db->GetServerMailAddress(email => $email);
print "\$email = $email\n";

my $title;
$db->GetFieldTitle( fieldtype => 'I', fieldid => 11, fieldtitle => $title);
print "\$title = $title\n";