package CMS::Users;
use Digest::MD5 qw(md5);
use CGI;

sub new {
	my $class = shift;
	my $self = { };
	bless $self, $class;
	return $self;
}

sub SetDBH {
my ($self, $dbh) = @_;
if ($dbh) {
	$self->{DBH} = $dbh;
	return 1;
}
else {
	return undef;
}
}

sub GetUserList {
	my ($self,%args) = @_;
	return "Sub call worked. I'm from: $self";
}
1;