Cela peut sembler être un cas désespéré, mais existe-t-il une astuce pour créer un graphe cyclique d'objets immuables en Perl ? Quelque chose comme ceci :
package Node;
use Moose;
has [qw/parent child/] => (is => 'ro', isa => 'Node');
package main;
my $a = Node->new;
my $b = Node->new(parent => $a);Maintenant, si je voulais $a->child pour pointer vers $b Qu'est-ce que je peux faire ?
