<div dir="ltr">Hola Alberto<div><br></div><div>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 =)</div><div><br></div><div>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</div><div><br></div><div><div>sub print_list {</div><div>   my $arrayref = shift;</div><div>   for (@{$arrayref}) {</div><div>      say;</div><div>      }</div><div>  }</div><div><br></div><div>sub func { [1,2,3,4]; };</div><div><br></div><div>#Complicacion adicional e inutil para repetir el comportamiento de derefenciacion</div><div>my $y = \&func;</div><div><br></div><div>print_list(&$y);</div></div><div><br></div><div>Y funciona como es debido, no como reportas en tu caso.</div><div><br></div><div>Saludos</div><div><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">2015-02-04 16:01 GMT+01:00 Alberto Mijares <span dir="ltr"><<a href="mailto:amijaresp@gmail.com" target="_blank">amijaresp@gmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Hola lista,<br>
<br>
Estoy viendo algo muy extraño y no veo qué estoy haciendo mal. Espero<br>
que puedan darme luces...<br>
<br>
Tengo una clase con un método que retorna una referencia a un array.<br>
Estoy usando Moo para crear mis clases.<br>
<br>
En un programita de pruebas que acostumbro usar para probar las clases<br>
hago algo como<br>
<br>
for (@{$objeto->metodo}) {<br>
  say;<br>
  }<br>
<br>
y veo sin problema todos los valores del arreglo.<br>
<br>
Pero en el programa real lo hago con una función como<br>
<br>
sub print_list {<br>
   my $arrayref = shift;<br>
   for (@{$arrayref}) {<br>
      say;<br>
      }<br>
  }<br>
<br>
y la invoco:<br>
<br>
&print_list($objeto->metodo);<br>
<br>
pero solo obtengo el primer elemento del arreglo.<br>
<br>
He intentado todas las combinaciones posibles de dónde desreferenciar<br>
el arreglo pero lo más que obtengo es el primer elemento.<br>
<br>
Gracias de antemano por la colaboración.<br>
<br>
Saludos<br>
<span class="HOEnZb"><font color="#888888"><br>
<br>
Alberto Mijares<br>
_______________________________________________<br>
caracas-pm mailing list<br>
<a href="mailto:caracas-pm@pm.org">caracas-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/caracas-pm" target="_blank">http://mail.pm.org/mailman/listinfo/caracas-pm</a></font></span></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><br><table style="font-size:7pt;font-family:Arial,Helvetica;padding:0px 0px 0px 5px;border-color:rgb(118,194,63);border-style:solid;border-width:1px 1px 1px 15px" height="195" width="346">
<tbody><tr><td colspan="2"><img title="" alt="brightcomputing_logo.png" src="http://www.brightcomputing.com/signatures/bc_sig.png" height="58" width="219">
</td></tr>
<tr><td style="padding-left:7px" nowrap valign="bottom"><font style="font-size:9pt;font-weight:bold"> <br> Juan Negretti<br></font><font style="font-size:7pt">QA Engineer<br> <br><br>Mob: +31 6 29004869<br>Skype: juan.negretti.bright<br><a style="text-decoration:none;color:#3988c2" href="mailto:juan.negretti@brightcomputing.com" target="_blank">juan.negretti@brightcomputing.com</a></font><br> <br></td><td nowrap valign="bottom"><font style="font-size:9pt;font-weight:bold">Bright Computing, Inc.<br></font><font style="font-size:7pt">Kingsfordweg 151<br>1043GR Amsterdam<br>The Netherlands<br>Tel: +1 408 300 9448<br>Fax: +1 408 715 0102<br><a style="text-decoration:none;color:#3988c2" href="http://www.brightcomputing.com" target="_blank">www.BrightComputing.com</a></font><br> <br></td></tr></tbody></table><br style="color:rgb(0,0,0);font-family:tahoma,arial,helvetica,sans-serif;font-size:12px"><span style="color:rgb(0,0,0);font-family:tahoma,arial,helvetica,sans-serif;font-size:12px">"Nam Myoho Renge Kyo / AL:.G:.D:.G:.A:.D:.U:."</span><br><div><span style="color:rgb(0,0,0);font-family:tahoma,arial,helvetica,sans-serif;font-size:12px">"</span><span style="color:rgb(0,0,0);font-family:sans-serif;font-size:13px;line-height:19.1875px">The whole history of computers is rampant with cheerleading at best and bigotry at worst" Larry Wall</span></div></div></div></div></div></div></div>
</div>