Select Code to Download

sub name {
    my $self = shift;
# the following is the broken line
...
    }
    return $self->{Name};
}

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

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