Select Code to Download

package RandWritingImplement;

...

    return $class->SUPER::new (@values);
}

sub _random {
  my ($list,$key) = @_;
...
  }
  return $random_array[rand @random_array];
}