package Simple;
use Class::MethodMaker 
    get_set       => [qw(a b)],
    new_hash_init => 'hash_init';

sub new { 
    my $pkg  = shift;
    my %args = ( b => "default",
                 @_ );
    return $pkg->hash_init(%args);
}