use Class::MethodMaker 'new_with_init' => "new" , 'new_hash_init' => "_hash_init" , 'get_set' => [ qw(method1 ) ];