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

Code (perl): (dl )

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/perl

use strict;
use warnings;

{
  sub test {
    my @info = caller(0);

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

Das hat auch das kleine Problem, dass man Vererbung verhindert. Das kann gewünscht sein, muss aber nicht.