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