¿Cómo puedo asignar muchos atributos de Moose al mismo tiempo?

Question

Poco a poco voy a alomizar un código que lee líneas de una tubería delimitada, divide cada una y las asigna a un hash usando una porción hash.

He convertido el hash en una clase Moose pero ahora no tengo idea de cómo asignar rápidamente los campos del archivo a los atributos de la clase (si es que lo hace).

sé que puedo con bastante facilidad simplemente hacer:

my $line = get_line_from_file; 
my @fields = split /\|/, $line; 
my $record = My::Record->new; 
$record->attr1($fields[0]); 
... 

pero yo estaba esperando una rápida un trazador de líneas para asignar todos los atributos de una sola vez, algo similar a:

my $line = get_line_from_file; 
my %records; 
@records{@field_names} = split /\|/, $line; 

I He leído acerca de la coacción, pero por lo que puedo decir, no es lo que busco.

¿Es posible?

Gracias

Answer 1

Creo que estás en el camino correcto con el enfoque rebanada de hash. Me gustaría hacer algo como:

my %fields; 
@fields{@field_names} = split m{\|}, $line; 
my $record = My::Record->new(%fields); 

Usted puede ser capaz de llegar a una solución retorcido map para lograr lo mismo, pero me gustaría errar por el lado de la legibilidad aquí.

Answer 2

Si el objeto no se construye sin embargo, sólo tiene que pasar todas las claves y valores en el constructor:

my $line = get_line_from_file; 
my %records; 
@records{@field_names} = split /\|/, $line; 
my $object = My::Record->new(%records); 

o si el objeto ya se ha creado y desea agregar algunos nuevos campos:

my $line = get_line_from_file; 
my %records; 
@records{@field_names} = split /\|/, $line; 
while (my ($key, $value) = each(%records) 
{ 
    $object->$key($value); 

    # or if you use different names for the setters than the "default": 
    $object->set_value($key, $value); 
} 

Answer 3

pasan los atributos al constructor usando zip del módulo List::MoreUtils:

use List::MoreUtils qw/ zip /; 

my $object = My::Record->new(
    zip @field_names, 
     @{[ split /\|/, get_line_from_file ]} 
);