Perché la concatenazione delle stringhe di Perl 6 non è come .WHAT?

Question

Sono confuso da questo frammento di codice in cui apparentemente non riesco a chiamare il metodo WHAT in una concatenazione di stringhe?

my $object = 'Camelia'; 

say $object; 
say $object.WHAT; 
say "^name: The object is a " ~ $object.^name; 
say "WHAT: The object is a " ~ $object.WHAT; 

L'output mostra che chiamando ^name opere (un metamethod da Metamodel::ClassHOW), ma Perl 6 è confuso da .WHAT come se ci fosse un problema di precedenza.

Camelia 
(Str) 
^name: The object is a Str 
Use of uninitialized value of type Str in string context 
Any of .^name, .perl, .gist, or .say can stringify undefined things, if needed. in block <unit> at meta_methods.p6 line 7 
WHAT: The object is a 

mio Perl 6:

This is Rakudo version 2015.12-219-gd67cb03 built on MoarVM version 2015.12-29-g8079ca5 
implementing Perl 6.c. 

Answer 1

.WHAT restituisce un oggetto di tipo, un oggetto non definito

Come la maggior parte routines/operatori, la concatenazione assume i suoi argomenti sono definiti. Ma lo .WHAT nell'ultima riga restituisce un oggetto tipo e un oggetto tipo non è definito. Quindi il risultato è un avvertimento e una stringificazione alla stringa vuota.

---

Se si desidera concatenare un oggetto indefinito senza generare un messaggio di avviso e invece stringa i in nome del tipo di oggetto è necessario in modo esplicito .^name, .gist o .perl IT ad esempio:

say "The object is a " ~ $object.^name 
say "The object is a " ~ $object.WHAT.gist 

display:

The object is a Str 
The object is a (Str) 

Answer 2

A quote dal canale IRC di Perl 6, Froggs utente:

.che ti restituisce un tipo, che ha lo scopo di mettere in guardia se interpolare o concatlo o fare matematica con esso

Nel tuo esempio, $object è un Str, quindi $object.WHAT ti dà il tipo Str.

In altre parole, è come la scrittura:

say "WHAT: The object is a " ~ Str; 

Edit: Sembra che la tua vera domanda è "Perché la concatenazione di stringhe di Perl 6 non come tipi?"

Come altri hanno già menzionato, i tipi non sono definiti e la concatenazione funziona su valori definiti. Come dice il messaggio di avvertimento di Perl 6, è necessario usare qualsiasi.^Nome, .perl, .gist per stringere le cose non definite.

Questi due funzionerà perché say usa .gist alla stringa i:

say Str; 

say "The object is ", Str;