package OORDBMS;

use DBI;

=h1 OORDBMS

This is an interface to an `object' database, a general object-oriented storage
mechanism sitting on top of a relational database which I have just invented.

=cut

sub new {
	my $package = shift;
	my %args = @_;
	my $dbispec = (delete $args{dbispec}) ||
		"dbi:Pg:dbname=object";
	my $dbh = DBI->connect(
			$dbispec,
			delete $args{user},
			delete $args{passwd}) or
		die "OORDBMS: cannot connect to database: $dbispec";
	my $this = {
		dbispec => $dbispec,
		dbh => $dbh
	};
	return $this;
}

sub open {
	my $package = shift;
	
}