Player.pm, first draft.

Player.pm

package Player;
use Moose;

has 'inventory' => (
  default => sub { [] },
  is      => 'ro',
);

sub list_inventory {
  my $self    = shift;
  my @inv     = @{ $self->inventory };

  return "You are carrying nothing." unless @inv;

  my $output  = "You are currently carrying:\n";
  $output    .= ("* " . $_->name . "\n") foreach(@inv);
  return $output;
}

sub obtain {
  my ($self, $object) = @_;
  push @{ $self->inventory }, $object;
}

no Moose;
1;