package Foo::People;
use Foo::PersistentObject;
@ISA = 'Foo::PersistentObject';
use strict;

my %ARGS = (
    _id      => 'people_id',
    _table   => 'people',
    _mapping => {
        id         => 'people_id',
        first_name => 'first',
        last_name  => 'last'
    }
);

sub new {
    my ($class,$id) = @_;
    $ARGS{_open_this_id} = $id if $id;
    my $self = $class->SUPER::new( %ARGS );	
}

sub get_list {
    my $class = shift;
    $class->SUPER::get_list( %ARGS );
}

1;