package Person;
use warnings;
use strict;
use parent 'Class::Accessor::FactoryTyped';
__PACKAGE__->mk_factory_typed_accessors(
'MyFactory',
person_name => 'name',
person_address => 'address',
);
__PACKAGE__->mk_factory_typed_array_accessors(
'MyFactory',
person_name => 'friends',
);
1;