Select Code to Download

use Wx;
my $symbol_table = Symbol::Table->New(PACKAGE=>'main::Wx');
while(my $package = each %$symbol_table) {
  eval "package Groninger::Wx::$package; use base 'Wx::$package;";
}

use Class::SubclassSet Groninger => qw(Wx::App Wx::Frame Wx::Menu);
package Class::SubclassSet;
...
      eval "package ${into}::$class; use base '$class';";
   }
}