Select Code to Download

MyHuman
-------------------------------------------
...
                carp
                drop_datasource

#!/usr/bin/perl

...
$new_id = $person->save() or die "save bork";
my $newperson = MyHuman->load($new_id) or die "reload bork";;
print "reload OK\nname is: ".$person->name()."\n";

#!/usr/bin/perl

...
}
## ------------------------------------------------------------------
1;