Select Code to Download

package Foo::People;
use Foo::PersistentObject;
...
}

1;

my $person = Foo::People->new;
$person->open( $id );
...
my $person = Foo::People->new( $id ); # same thing as above

my $people = Foo::People->get_list; # get a list of all people (as obj
+ects)

sub get_list {
    my ($class, %args) = @_;
...
    }
    return \@objects;
}

sub new {
    my ($class,$id) = @_;
...
    my $class = shift;
    $class->SUPER::new( @_ );
}