renee+2008-05-27 13:45:41--

Soll nur aus dem Package heraus die Subroutinen zugegriffen werden?

Zur Not kann man es so machen:

Code (perl): (dl )

1
2
3

    if( $info[0] ne __PACKAGE__ ) {
      print "(test) nicht erlaubt: Aufruf aus Package $info[0]\n";
    }

ja, aber das bringt nix. niemand hält den programmierer davon ab, das richtige
package vor den aufruf zu schreiben, um zu schummeln. darum ging es mir. es ist so nicht möglich.