my $foo = FooBar->retrieve(1);
print $foo->name(), "\n";
# remove the instance of FooBar with an ID of 1 from memory
undef $foo;

FooBar->table('Bar'); #switch table
my $bar1 = FooBar->retrieve(1);