Perl 5.6.1 (Pakete, Bibliotheken und Module) - #115349 (Perl/CGI)

Linuxer

2008-10-09 21:31

User since
2006-01-27
3891 Artikel
HausmeisterIn

user image

Quote
use package errors;
...
&Error::Trace();

Fehlt mir die Kreativität, das use package errors; zu verstehen und später den Aufruf von Error::Trace korrekt zuzuordnen? Welche Magie ist da am Werke? Oder lesen da auch andere mindestens einen Logikfehler (in Kombination mit einem Syntaxfehler (spätestens bei Verwendung von 'use strict') raus?

*grübel* Könnte man das nicht mit einem Block-eval lösen? Oder wäre das zu "unschön"?

Code (perl): (dl )

#!/usr/bin/perl -l
use strict;
use warnings;


package Error;

sub Trace {
    print "Error::Trace called!";
}

1;


package main;

eval { Error::Trace(); };
# wenn Error::Trace() nicht definiert ist, kann man @! auswerten!
print "eval fetched: $@" if $@;


eval { Error::NotExistent(); };
print "eval fetched: $@" if $@;

__END__

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!