# NOTE: This is simply an example of a legacy blessed-hash object. 
#       I do not recommend using it.
package Animal1;
use strict;

sub new {
	my $class = shift;
	my $self = shift;
	$self = {} unless $self && ref $self eq 'HASH';
	bless($self, $class);
	return $self;
}

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

1;
