Select Code to Download

  sub factory {
      my $self = shift;
      ...
...
      ...
      return $newInstance;
  }

  sub factory {
      my $self = shift;
      ...
...
  sub factoryClass {
      "Bar"
  }