package Foo;
use Class::MakeMethods::Template::Array (
    'new'    => 'new',
    'scalar' => [ -interface=> { 'get_*'=>'get', 'set_*'=>'set' },
                  qw/ name age city job salary /,
                ],
);

package main;
use Data::Dumper;

my $foo = Foo->new();
$foo->set_name("foo");
$foo->set_age(100);

warn Data::Dumper->Dump([$foo], ['foo']);
print $foo->get_age,$/;
$foo->set_age(23);
print $foo->get_age,$/;
[download]

thank you so much. sometimes one needs such an example to get a starting point =)