Select Code to Download

sub name {
   my ($self, $name) = @_;
...
   $char->poisoned ? 'posioned' : 'not poisoned',
   ".\n"
);