sub AUTOLOAD {
	my $self = shift;
	my $call = $AUTOLOAD;
	$call =~ s/.*:://;
	
	return $self->{DBH}->$call(@_);
} # AUTOLOAD