# config
our @AutoGeneratedSubroutineNames = qw( foo bar );

# dann irgendwo weiter unten...
for my $subName ( @AutoGeneratedSubroutineNames ) {

  # verankere vorgenerierte Subroutinen ueber symbolische Referenz
  # in der Symboltabelle (Sub::Install ist leider kein Standardmodul):
  no strict 'refs';
  *$subName = sub { my $self = shift; $self->foobar($subName, @_); };

} # for @AutoGeneratedSubroutineNames