Funktionen in packages - #58077 (Allgemeines zu Perl)

renee

2005-09-16 09:42

User since
2003-08-04
14371 Artikel
ModeratorIn

verhindern kann man es nicht direkt, aber Du kannst die Ausführung verweigern, wenn es nicht aus dem Modul kommt:

Code: (dl )

sub function{
  my ($package) = (caller())[0];
  die "Aufruf nicht erlaubt!\n" unless($package eq $ownpackage);
  [...]
}

in $ownpackage steht halt der Packagenamen Deines Moduls...