# Constructor
# Usage: $MyDB = DB::MyDB->dbconnect("db", "username", "pwd")
sub dbconnect { 
	# stuff 
}

# Usage: $tbl = $MyDB->selectall_tbl($select_statement)
# 	where $tbl is a 2D array
sub selectall_tbl {
	# stuff
}

1 ;

##</code><code>##

package DB::MyDB ;
require Exporter ;
@ISA = qw(Exporter) ;
@EXPORT = qw(print_tbl) ;
use DBI ;
use strict ;

use DB::_DB ;	# OO stuff

# Usage: print_tbl($tbl)
# 	where $tbl = $MyDB->selectall_tbl($select_statement)
# 	return nice text result
sub print_tbl {
	# stuff
}

1 ;

##</code><code>##

package DB::MyWebDB ;
use Apache::Reload ;
use strict ;

use DB::_DB ;	# OO stuff

1 ;