Select Code to Download

sub _is_string($) {
   my($arg) = @_;
...
sub is_module_name($) {
   _is_string($_[0]) && $_[0] =~ /\A$module_name_rx\z/o;
}

perl -E'*{" ::foo"} = sub {42}; say " "->foo'