#! /usr/bin/perl
use strict;
use warnings;
use 5.020;

package foo;

sub foo { }
sub dummy { }


package bar;

sub bar { }
sub dummy { }



package main;

use File::Basename;

# Das Original Skript heisst meinetwegen skript.pl
# soll aber unter diversen Namen mit verschiedenen Funktionen aufgerufen werden
# z.B. via SymLinks oder Hardlinks
#   ln skript.pl foo           # hard linked
#   ln -s skript.pl bar        # symlinked
#   ln -s skript.pl not_defined
#
# Die verschiedenen Funktionen sollen oben in den packages definiert werden
#
# Zum Start sollte aber geprüft werden, ob das "aufgerufene" Package überhaupt definiert worden ist.

# ermittle gewünschtes Package
my $called_as = File::Basename::basename($0);


# Als Workaround könnte ich in jedem Package eine Dummy Funktion definieren und prüfen,
# ob die vorhanden ist; wenn ja, gilt die Annahme, dass das Package korrekt definiert ist
# (ist oben bereits so gemacht).

if ( ! $called_as->can("dummy") ) {
  die "(E) Aufruf als '$called_as' zur Zeit noch nicht unterstützt.\n";
}
# Das hat halt den Nachteil, dass ich diese dummy Funktion eben in jedem Package definiert haben muss.
# Es ist noch nicht abzusehen, ob ich eine "sinnvolle" Funktion in allen Packages haben werde, die 
# überall den gleichen Namen haben wird.


#### Schöner fände ich einen direkten Check, ob das package definiert ist; etwas dieser Art
#if ( ! package_exists($called_as) ) {
#  die "(E) Aufruf als '$called_as' zur Zeit noch nicht unterstützt.\n";
#}

### Hier geht's dann weiter mit der gewünschten Ausführung...

say "Yes! We can run as $called_as.";

# ...

__END__

 ll -lisa
total 16K
1047210 4.0K drwxrwsr-x. 2 a422548 apache 4.0K Nov 20 18:23 .
1047702 4.0K drwxr-sr-x. 4 a422548 apache 4.0K Nov 20 18:21 ..
1047318    0 lrwxrwxrwx. 1 a422548 apache    9 Nov 20 18:21 bar -> skript.pl
1047351 4.0K -rwxrwxr-x. 2 a422548 apache 1.3K Nov 20 18:23 foo
1047356    0 lrwxrwxrwx. 1 a422548 apache    9 Nov 20 18:21 not_defined -> skript.pl
1047351 4.0K -rwxrwxr-x. 2 a422548 apache 1.3K Nov 20 18:23 skript.pl
 $ perl foo
Yes! We can run as foo.
 $ perl bar
Yes! We can run as bar.
 $ perl not_defined
(E) Aufruf als 'not_defined' zur Zeit noch nicht unterstützt.
 $ perl skript.pl
(E) Aufruf als 'skript.pl' zur Zeit noch nicht unterstützt.
 $