Help for this page

Select Code to Download

Select or download this

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