#!/usr/bin/perl

use Data::Dumper;


$m = MyClass->new();
$m->name("theo");
$m->id(1);
exit;


package MyClass;
@fields = qw(id name);
use Class::MethodMaker
        get_set => [ @fields ],
        new => "new";