Help for this page

Select Code to Download


  1. or download this
    MyHuman
    -------------------------------------------
    ...
                    carp
                    drop_datasource
    
  2. or download this
    #!/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";
    
  3. or download this
    #!/usr/bin/perl
    
    ...
    }
    ## ------------------------------------------------------------------
    1;