[caracas-pm] Diferentes resultados de un mismo procedimiento

[Juan Negretti]

Hola Alberto

Primero queria agradecerte publicamente porque gracias a la publicacion que
hiciste hace varios meses aca en la lista estoy ahora en Amsterdam
respondiendo este correo =)

Segundo, y a lo que importa, recomendaria que hicieras un Dumper de la
salida de $objeto->metodo porque hice algunas pruebas con el comportamiento
que mencionas

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

sub func { [1,2,3,4]; };

#Complicacion adicional e inutil para repetir el comportamiento de
derefenciacion
my $y = \&func;

print_list(&$y);

Y funciona como es debido, no como reportas en tu caso.

Saludos


2015-02-04 16:01 GMT+01:00 Alberto Mijares <amijaresp at gmail.com>:

> 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
> _______________________________________________
> caracas-pm mailing list
> caracas-pm at pm.org
> http://mail.pm.org/mailman/listinfo/caracas-pm




-- 

[image: brightcomputing_logo.png]
Juan Negretti
QA Engineer


Mob: +31 6 29004869
Skype: juan.negretti.bright
juan.negretti at brightcomputing.com

Bright Computing, Inc.
Kingsfordweg 151
1043GR Amsterdam
The Netherlands
Tel: +1 408 300 9448
Fax: +1 408 715 0102
www.BrightComputing.com <http://www.brightcomputing.com>


"Nam Myoho Renge Kyo / AL:.G:.D:.G:.A:.D:.U:."
"The whole history of computers is rampant with cheerleading at best and
bigotry at worst" Larry Wall
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/caracas-pm/attachments/20150204/dbfdb990/attachment.html>