package Willy;
use Moose;

has 'req' => (is => 'rw', required => 1);

sub say {
  my ($self, $msg) = @_;
  $self->req->print($msg);
  $self->req->next;
}

sub run {
  my ($self) = @_;
  $self->say("Free Willy!");
  $self->say("I love pizza!");
}

1;