#!/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;

##</code><code>##

#!/usr/bin/perl

package MyHuman;

use myStorableBase;
@ISA = ("myStorableBase");
# I am one of those cocky little monkeys with the hands and the fire and the little green
# pieces of paper. (aka 'Ugly Bag of mostly-water')
#

1;