use Class::MethodMaker '-sugar';
package Simple;
make methods
    get_set       => [qw(a b)],
    new_with_init => 'new';
sub init { 
    my ($self, %args) = @_; 
    #... what goes here?
}
------
my $simp = new LogSimple(a => 4);
print("a=" . $simp->a() . ", b = " $simp->b() . "\n");
----------