sub AUTOLOAD {
	my $op = $AUTOLOAD;
	$op =~ s/^.*:://;
	if ( DBI::db->can($op) ) {
		eval "sub $op { return shift->{DBH}->$op(\@_); }";
		$op->(@_);
	}
	else {
		eval "sub $op { return shift->error('Cannot autoload $op'); }";
	}
}