sub set {
  my $s = shift;
  my $attribute = shift;
  my $value = shift;

  $s->{$attribute} = $value;
}