# sets up autoload subs that 'inherit' DBI's DBH methods
sub AUTOLOAD {
	my $op = $AUTOLOAD;
	my $self = shift;
	$op =~ s/^.*:://;
	if ( DBI::db->can($op) ) {
		# create a wrapper for a DBH method
		eval "sub $op { return shift->{DBH}->$op(\@_); }";
		$op->($self, @_);
	}
	elsif ( $op =~ /^_/ ) {
		# return the appropriate attribute
		$op =~ s/^_//;
		exists $self->{$op} && return $self->{$op};
		return $self->error("Can't autoload for attribute _$op");
	}
	else {
		return $self->error("Cannot autoload $op");
	}
}