Perl Inheritance - Chi è il chiamante della classe genitore

Question

Ho una situazione in cui ho bisogno di trovare il chiamante di un pacchetto e il mio codice simile a:

Inherited.pm:

package Inherited; 
our @ISA = qw(BaseClass); 
sub new { 
    SUPER::new(); 
} 

BaseClass .pm

package BaseClass; 
sub new { 
    $a = caller(0); 
    print $a 
} 

Ora ho un'altra classe (MyClass.pm) che fa:
MyClass.pm:

$obj = Inherited->new(); 

Questa stampa è ereditata. Ma ho bisogno di MyClass per essere la dichiarazione stampata.

Qualcuno potrebbe aiutarmi per risolvere questo problema?

Answer 1

Quando si dà un argomento a caller, si indica quanti livelli si desidera tornare indietro. Hai dato l'argomento 0, che è il livello corrente. Se si desidera un livello superiore, aggiungere 1:

use v5.12; 

package Inherited { 
    our @ISA = qw(BaseClass); 
    sub new { 
     $_[0]->SUPER::new(); 
    } 
} 

package BaseClass { 
    sub new { 
     say "0: ", scalar caller(0); 
     say "1: ", scalar caller(1); 
    } 
} 

package MyClass { 
    my $obj = Inherited->new; 
    } 

Ora il risultato è:

0: Inherited 
1: MyClass 

ricordarsi di includere sempre programmi completi esempio nella tua domande. Il codice Perl che hai postato è stato rotto per vari altri motivi non correlati a caller.

Answer 2

Se sto leggendo il tuo messaggio correttamente, devi trovare l'ultimo frame nello stack di chiamate che sta chiamando un costruttore.

package BaseClass; 
sub new { 
    my $a = caller(0); 
    for (my $n=0; my @c=caller($n); $n++) { 
     last if $c[4] !~ /::new$/; 
     $a = $c[0]; 
    } 
    print $a; 
} 

o

package BaseClass; 
sub new { 
    my @a; 
    unshift @a, [ caller(@a) ] while caller(@a); 
    my ($a) = grep { $_->[4] =~ /::new$/ } @a; 
    print $a // caller(0); 
} 

Il secondo frammento di codice si gestisce il caso quando ci sono chiamate di funzione intermedi che non sono costruttori, ad esempio, se la pila chiamata assomiglia

GrandChild::new 
GrandChild::init 
Inherited::new 
BaseClass::new 

la il primo snippet restituirebbe il chiamante per Inherited::new (che presumibilmente sarebbe GrandChild e il secondo restituirà il chiamante di GrandChild::new.