Warum sollte ich nicht UNIVERSAL::isa?

Gemäß dieser

http://perldoc.perl.org/UNIVERSAL.html

Ich soll nicht mit UNIVERSAL::isa() und sollte stattdessen mit $obj->isa() oder KLASSE->isa().

Dies bedeutet, dass, um herauszufinden, ob etwas eine Referenz in den ersten Platz, und dann ist die Referenz zu dieser Klasse zu tun haben, ich

eval { $poss->isa("Class") }

und check $@ und alle, die gumph, oder sonst

use Scalar::Util 'blessed';
blessed $ref && $ref->isa($class);

Meine Frage ist, warum? Was ist falsch mit UNIVERSAL::isa genannt, wie das? Es ist viel sauberer für Dinge wie:

my $self = shift if UNIVERSAL::isa($_[0], __PACKAGE__)

Sehen, ob diese Funktion für das Objekt aufgerufen wird oder nicht. Und ist es eine schöne, saubere alternative, die nicht umständlich mit kaufmännisches und potenziell lange Zeilen?

InformationsquelleAutor Altreus | 2008-10-15
  1. 33

    Das primäre problem ist, dass wenn Sie anrufen UNIVERSAL::isa direkt, Sie umgehen alle Klassen, überladen haben isa. Wenn diese Klassen bauen auf den überlasteten Verhalten (was er vermutlich nicht, sonst würde Sie nicht überschrieben haben), dann ist das ein problem. Wenn man sich auf isa direkt auf Ihrem gesegneten Objekt, dann die richtige isa - Methode aufgerufen werden in jedem Fall (überladen, wenn es vorhanden ist, UNIVERSELL:: wenn nicht).

    Das zweite problem ist, dass UNIVERSAL::isa nur dem test, den Sie möchten, auf eine gesegnete Referenz-genauso wie mit jeder anderen Nutzung der isa. Es hat unterschiedliches Verhalten für nicht-gesegnet Verweise und einfache Skalare. Also dein Beispiel nicht überprüfen, ob $ref ist wohl nicht das richtige zu tun, sind Sie zu ignorieren ist ein Fehler Zustand und mit UNIVERSAL's Alternative Verhalten. Unter bestimmten Umständen kann dies zu subtilen Fehlern (zum Beispiel, wenn die variable enthält den Namen der Klasse).

    Betrachten:

    use CGI;

my $a = CGI->new();

my $b = "CGI";

print UNIVERSAL::isa($a,"CGI");  # prints 1, $a is a CGI object.
print UNIVERSAL::isa($b,"CGI");  # Also prints 1!! Uh-oh!!

    So, in Zusammenfassung, verwenden Sie nicht UNIVERSAL::isa... Tun, die zusätzliche Fehler zu überprüfen, und rufen Sie isa auf Ihr Objekt direkt.

    • UNIVERSAL::isa NICHT benötigen eine gesegnete Referenz. Es funktioniert großartig auf ungeweihter Verweise auch (z.B., UNIVERSAL::isa([7],'ARRAY') gibt 1 zurück). Wie in den docs, wenn Sie übergeben einen string, es behandelt es als name einer Klasse (wie gezeigt, durch Ihr Beispiel).
    • Du hast Recht, ich sollte das klären.
    • Natürlich, es ist eine Zeit, wenn Sie wollen wirklich, dass die zweite Ausgabe ... aber du musst davor hüten, das andere Begrenzungen, wenn es das ist, was Sie zu tun versuchen.
    InformationsquelleAutor Adam Bellaire
  2. 9

    Siehe die Dokumentation für UNIVERSAL::isa und UNIVERSAL::can für, warum Sie sollten es nicht tun.

    Kurz gesagt, ist es wichtig, die Module mit einem echten Bedarf überschreiben 'isa' (wie Test::MockObject), und wenn Sie es nennen, als eine Funktion, brechen Sie diese.

    Muss ich sagen, my $self = shift if UNIVERSAL::isa($_[0], __PACKAGE__) sieht nicht sehr sauber für mich - anti-Perl-Befürworter würde sich beschweren, Linie Lärm. 🙂

    • Danke für die Erklärung "warum nicht" besser als mir! +1
    InformationsquelleAutor Penfold
  3. 7

    Direkt Ihre Frage zu beantworten, die Antwort ist an der Unterseite der Seite, die du verlinkt sind, nämlich, dass, wenn ein Paket definiert einen isa Methode aufrufen UNIVERSAL::isa direkt nicht nennen werde das Paket isa Methode. Das ist sehr unintuitiv Verhalten aus einem Objekt-Orientierung Sicht.

    Den rest von diesem post ist nur mehr Fragen, warum Sie dies tun in den ersten Platz.

    In code wie den oben genannten, in welchen Fällen würden, dass bestimmte isa test scheitern? d.h., wenn es eine Methode, in dem Fall wäre das erste argument nicht das Paket, die Klasse oder eine Instanz davon?

    Ich Frage, weil ich Frage mich, ob es eine legitime Grund, warum Sie möchten, um zu testen, ob das erste argument ist ein Objekt, das in den ersten Platz. also, sind Sie nur versuchen zu fangen die Leute sagen FooBar::method statt FooBar->method oder $foobar->method? Ich glaube Perl ist nicht ausgelegt für diese Art von Verweichlichung, und wenn die Menschen irrtümlich mit FooBar::method Sie werden es früh genug erfahren.

    Kann Ihre Laufleistung variieren.

    InformationsquelleAutor Chris Jester-Young
  4. 7

    Jeder andere hat gesagt, Sie warum, die Sie nicht verwenden möchten UNIVERSAL::isa, weil es bricht, wenn die Dinge überlast isa. Wenn Sie gemacht haben alle die Gewohnheit, die überlastung, die sehr spezielle Methode, die Sie sicherlich wollen, Sie zu respektieren. Sicher, Sie könnte tun dies, indem Sie schreiben:

    if (eval { $foo->isa("thing") }) {
     # Do thingish things
}

    weil eval garantiert false zurückgeben, wenn es eine Ausnahme auslöst, und der Letzte Wert sonst. Aber das sieht schrecklich, und Sie sollten nicht brauchen, um Ihren code schreiben, in lustige Möglichkeiten, weil die Sprache, die Sie zu will. Was wir wirklich wollen, ist, einfach zu schreiben:

    if ( $foo->isa("thing") ) {
     # Do thingish things
}

    Das zu tun, müssten wir sicherstellen, dass $foo ist immer ein Objekt. Aber $foo werden könnte, eine Zeichenfolge, eine Zahl, ein Verweis, eine Undefinierte Wert, oder alle möglichen seltsamen Sachen. Was für eine Schande, Perl kann nicht alles ein erste-Klasse-Objekt.

    Oh, warten Sie, es kann...

    use autobox;   # Everything is now a first class object.
use CGI;       # Because I know you have it installed.

my $x = 5;
my $y = CGI->new;

print "\$x is a CGI object\n" if $x->isa('CGI');   # This isn't printed.
print "\$y is a CGI object\n" if $y->isa('CGI');   # This is!

    Können Sie packen autobox aus dem CPAN. Sie können es auch verwenden, mit lexikalischen Bereich, so kann alles sein, ein Erster-Klasse-Objekt nur für die Dateien oder Blöcke, in denen Sie verwenden möchten ->isa() ohne all die zusätzlichen Kopfschmerzen. Es macht auch einen viel mehr als das, was ich abgedeckt haben in diesem einfachen Beispiel.

    • Persönlich bevorzuge ich mit eval { $foo->isa("thing") } eher als ungewöhnlich autobox - Modul, das auch auf die Leistung auswirkt.
    InformationsquelleAutor pjf
  5. 2

    Vorausgesetzt, Ihr Beispiel, was Sie wollen in der Lage sein zu tun ist, innerhalb einer Objekt-Methode, Sie sind unnötig paranoid. Der erste übergebene Element wird immer entweder eine Referenz auf ein Objekt der entsprechenden Klasse (oder einer Unterklasse) oder es wird der name der Klasse (oder einer Unterklasse). Es wird nie einen Verweis von einer anderen Art, es sei denn, die Methode wurde bewusst als Funktion aufgerufen. Sie können daher sicher nur verwenden ref zu unterscheiden zwischen den beiden Fällen.

    if (ref $_[0]) {
  my $self = shift;
  # called on instance, so do instancey things
} else {
  my $class = shift;
  # called as a class/static method, so do classy things
}
    InformationsquelleAutor Dave Sherohman
  6. 0

    Recht. Es macht eine falsche Sache für Klassen, das überladen isa. Verwenden Sie einfach die folgende Redewendung:

    if (eval { $obj->isa($class) }) {

    Ist es leicht verstanden und allgemein akzeptiert ist.

    InformationsquelleAutor codeholic
Schreibe einen Kommentar