<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">package HR;

sub new {
  my $proto = shift;
  my $class = ref($proto) || $proto;
  my %params = @_;
  my $self  = {};

  foreach (keys(%params)) {
    $self-&gt;{$_} = $params{$_};
  }

  bless ($self, $class);
  return $self;
}

sub run {
  my ($self, $str) = @_;
  print $str, "\n";
}

sub get {
  my ($self, $str) = @_;
  return "";
}

sub stop {
  my ($self, $str) = @_;
}

1;
</pre></body></html>