package Person;
use strict;
use LEOCHARRE::Class2;


__PACKAGE__->make_constructor();
__PACKAGE__->make_accessor_setget( 
   'name', 
   'name_last',
   [ 'inventory' => [qw(various defaults here)] ],
   [ age => 19 ], 
   { speed => 348, pants => 27, hang => undef },   
);

__PACKAGE__->make_accessor_setget({ 
   houses => [],
   blocks => {},
   });


sub houses_add {
   my $self = shift;
   my $house = shift;

   #my $houses = $self->houses;
   #push @$houses, $house;
   push @{$self->{houses}}, $house;

   return $self->houses_count;
}

sub houses_count {
   my $self = shift;
   return ( scalar @{ $self->houses } );
}


1;