roger: den Aufruf einers Programms/Lib zurückverfolgen

Beitrag lesen

Hallo,

Carp::Always darf ich nur benutzen wenn ich nicht z.B. "die" benutze....hab ich gelesen :-)

Hier mal mein Beispiel.

if ($var == x.y)
  {
    logeintrag "Varname, Zeile, kompletter Aufrufstack(komme von x->y-Z),
    Programmname-> Fehler x.y"
  }

Ich denke (my $Package, my $Datei, my $Zeile) = caller(); wäre da vielleicht
die bessere Wahl.

Bei Cpan gibt es eine  "Perl6::Caller;"

my $sub         = caller->subroutine;
 my $line_number = caller->line;
 my $is_require  = caller(3)->is_require;

Hat hier jemand Erfahrung. Suche eine gute Lösung für die Zukunft.

Gruß
    roger