package Person;

sub new {
	my $proto       = shift;
	my $class       = ref($proto) || $proto;
	my $self        = {};
	$self->{NAME}   = undef;

	bless ($self, $class);
	return $self;
}

sub name {
	my $self = shift;
	if (@_) { $self->{NAME} = shift }
	return $self->{NAME};
}

1;