Re: Object methods from hashy structures

[j1n3l0]

Also consider the Moose like so:

package Foo;
use Moose;

# define your attributes here ...
my %ATTRIBUTES;
@ATTRIBUTES{ qw( name age sex job) } = ();

# create the accessors here ...
for my $attribute ( keys %ATTRIBUTES ) {
    has $attribute => ( is => 'rw' );
}
1;

package main;

# assign values to your attributes ...
my $foo = Foo->new(
    name => shift,
    age  => shift,
    sex  => shift,
    job  => shift,
);

# access the attributes here ...
print join (
    q{ },
    'Hi, I am ',
    $foo->age,
    'year old',
    $foo->name,
    'and i work as a',
    $foo->job,
) . "\n";

Then execute like so:

perl t.pl nelo 27 male bioinformatician

And you get the following:

Hi, I am  27 year old nelo and i work as a bioinformatician

[stvn]

Moose actually has a built in feature/shortcut for this.

package Foo;
use Moose;
has [qw( name age sex job )] => ( is => 'rw' );

This will create 4 attributes (name, age, sex, job) in your Foo class, all of which have the same options (is => 'rw').