sub change {
  my ($self, $id) = @_;
  $_[0] = Test->new($id);
}