¿Cuál es la mejor forma de sobrecargar cadenas en un acceso de atributo de Moose?

Question

Tengo una clase donde quiero aplicar sobrecarga de cadena en su atributo id. Sin embargo, Moose no permite la sobrecarga de cadenas en los accesores de atributos. Por ejemplo:

package Foo; 
use Moose; 
use overload '""' => \&id, fallback => 1; 
has 'id' => (
    is => 'ro', 
    isa => 'Int', 
    default => 5, 
); 

package main; 
my $foo = Foo->new; 
print "$foo\n"; 

Lo anterior dará un error:

You are overwriting a locally defined method (id) with an accessor at C:/perl/site/lib/Moose/Meta/Attribute.pm line 927 

He probado un par de opciones para evitar esto:

1. Marcado idis => bare, y su sustitución con mi propio acceso: sub id {$_[0]->{id}}. Pero esto es solo un truco.

2. Tener el supercargador de cadenas use otro método que simplemente delegue de nuevo a id: sub to_string {$_[0]->id}.

Me pregunto si alguien tiene una mejor manera de hacerlo.

Answer 1

use overload '""' => sub {shift->id}, fallback => 1; 

Funciona bien para mí.

Answer 2

Creo que está recibiendo un error porque \&id crea un marcador de posición para un sub que se definirá más adelante, porque Perl necesitará saber la dirección que ese subtendrá cuando esté definido para crear una referencia a él. Moose tiene sus propios controles para tratar de evitar la sobrescritura de los métodos que defina y le informe esto.

Desde Creo que lo que realmente quiere hacer es llamar al método id cuando el objeto se utiliza como una picadura de este modo:

use overload '""' => 'id', fallback => 1; 

Desde el overload documentation

Values specified as strings are interpreted as method names.