sub name {
	my $self = shift;
# the following is the broken line
	$self = ref($self) || $self;

	if (@_) {
		$self->{Name} = shift;
	}
	return $self->{Name};
}

##</code><code>##

my $a = new HIT;
my $b = new HIT;

print $a->Name('Corwin, Prince of Amber');
print $b->Name();