#!/usr/bin/perl

package myStorableBase;

use Class::PObject;

my @basedef = ["id", "name", "email", "phone"];

pobject 					# pobj is a persistent object
	{					# can be saved and loaded
	columns => @basedef,			# the entries
	driver => 'db_file',			# to a db file normal unix
	datasource => "./data"                  # in this place
	};



sub thingysub
{
my $whatever = shift;
return 1;
}

1;