Perl.it - Documenti

[25] Come posso sapere qual è il package corrente?

In un programma generico, per conoscere il package dell'unità di compilazione corrente potete fare in questo modo:

     my $nome_package = __PACKAGE__;

Ma se si tratta di un metodo e volete stampare un messaggio d'errore che menzioni il tipo di oggetto sul quale è stato invocato (che non è necessariamente quello in cui il metodo è stato compilato):

     sub metodo {
         my $self  = shift;
         my $class = ref($self) || $self;
         warn "Sono stato chiamato da un oggetto $class";
     }

vedi in inglese

AUTORE E COPYRIGHT

Questa documentazione è libera; puoi ridistribuirla e/o modificarla secondo gli stessi termini applicati al Perl.

Indipendentemente dalle modalitè di distribuzione, tutti gli esempi di codice in questo file sono rilasciati al pubblico dominio. Potete, e siete incoraggiati a farlo, utilizzare il presente codice o qualunque forma derivata da esso nei vostri programmi per divertimento o per profitto. Un semplice commento nel codice che dia riconoscimento alle FAQ sarebbe cortese ma non è obbligatorio.