Select Code to Download

package Action;

...
sub foo {
  $_[0]->();
}

package SingletonObject;
{
...
    return $instance;
  }
}