for (keys %$accessors){
 if ($accessor->{$_}{TYPE} eq 'getter'){
    $accessor->{$_}->{CODE} = sub {set code};
 }else{
   .. setter ...
 }