[SP-pm] Como pegar o indice dos objetos

[Lucas Moraes]

Oi gente, estou quendo pegar o indice dos objetos, estou usando Moose, vou passar para vocês como eu quero.

 

arquivo modulo/config.pm

package modulo::config;

use Moose;

has 'dados' => (is => 'rw');

sub indice {

$self = shift;

}

1;

 

arquivo dados.pl

#!/usr/bin/perl

use modulo::config;

$dados = new modulo::config;

$dados->dados({

cor => '#224488',

tamanho => 34,

});

$dados->indice;

 

para eu imprimir a cor dentro da sub indice: $self->dados{cor}

com o tamanho tambem: $self->dados{tamanho}

 

gostaria de usar o foreach() para pegar o indice e o valor, mas não estou conseguindo, alguem pode me ajudar?

 

Deus é o limite!
 		 	   		  
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20101003/b16ef7b6/attachment.html>