package Toolkit::DB;
#############################################
# new - constructor
#
#
# returns blessed db object
#############################################
sub new
{
	my $self = shift;
	my %params = @_;
	if (!$params{dbtype})
	{
		$params{dbtype} = "Toolkit::FileDB";
	}
	$params{delegate} = "$params{dbtype}"->new(%params);
	 
	return bless \%params,$self;
}

#############################################
# insert - add a record to the db
#
# takes hash of fieldname/fieldcontent
#
# returns success/fail
#############################################
sub insert
{
	my $self = shift;
	my %data = @_;

	my $result = $self->{delegate}->insert(%data);

	return $result; 
}