<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style>
</head>
<body class='hmmessage'>
Oi gente, estou quendo pegar o indice dos objetos, estou usando Moose, vou passar para vocês como eu quero.<BR>
<BR>
arquivo modulo/config.pm<BR>
package modulo::config;<BR>
use Moose;<BR>
has 'dados' => (is => 'rw');<BR>
sub indice {<BR>
$self = shift;<BR>
}<BR>
1;<BR>
<BR>
arquivo dados.pl<BR>
#!/usr/bin/perl<BR>
use modulo::config;<BR>
$dados = new modulo::config;<BR>
$dados->dados({<BR>
cor => '#224488',<BR>
tamanho => 34,<BR>
});<BR>
$dados->indice;<BR>
<BR>
para eu imprimir a cor dentro da sub indice: $self->dados{cor}<BR>
com o tamanho tambem: $self->dados{tamanho}<BR>
<BR>
gostaria de usar o foreach() para pegar o indice e o valor, mas não estou conseguindo, alguem pode me ajudar?<BR>
<BR>
Deus é o limite!<BR>                                            </body>
</html>