package Place;
use base qw(Class::AutoClass);
use vars qw(@AUTO_ATTRIBUTES @OTHER_ATTRIBUTES %AUTODB);
@AUTO_ATTRIBUTES=qw(id name address);
@OTHER_ATTRIBUTES=qw(country);
%AUTODB=
(collections=>
{Place=>qq(id integer, name string, country string),
HasName=>qq(id integer, name string)});
Class::AutoClass::declare;
# defaults to USA
sub country {
my $self=shift;
@_? $self->{country}=$_[0]: ($self->{country} || 'USA');
}
1;