Select Code to Download

sub wrap_sub {
  my ($class, $function) = @_;
...
  *{"$class\::$function"} = $wrap_sub;
  return;
}

sub foo {
  warn 'fooooo';
}
__PACKAGE_->wrap_sub("foo");