[caracas-pm] Diferentes resultados de un mismo procedimiento

[Alberto Mijares]

Hola lista,

Estoy viendo algo muy extraño y no veo qué estoy haciendo mal. Espero
que puedan darme luces...

Tengo una clase con un método que retorna una referencia a un array.
Estoy usando Moo para crear mis clases.

En un programita de pruebas que acostumbro usar para probar las clases
hago algo como

for (@{$objeto->metodo}) {
  say;
  }

y veo sin problema todos los valores del arreglo.

Pero en el programa real lo hago con una función como

sub print_list {
   my $arrayref = shift;
   for (@{$arrayref}) {
      say;
      }
  }

y la invoco:

&print_list($objeto->metodo);

pero solo obtengo el primer elemento del arreglo.

He intentado todas las combinaciones posibles de dónde desreferenciar
el arreglo pero lo más que obtengo es el primer elemento.

Gracias de antemano por la colaboración.

Saludos


Alberto Mijares