sub AUTOLOAD {
	(my $sub = $The::Class::Name::AUTOLOAD) =~ s/^.*:://;
	my $db = shift;
	$db->{dbh}->$sub(@_);
}

##</code><code>##

(in cleanup) Can't call method "DESTROY" on an undefined value at ... at line ...