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

sub new {
	my $class = shift;
	my $self  = {};
	$self->{_name} = shift;
	bless($self, $class);
	return $self;
}

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

1;