That didn't exist in your code, so I didn't use that.

Symbolic refs only access package variables. You never assigned a value to the $setter package variable, the error message is correct.

There's no reason to replace the simple if/else with a lookup table (which is what you are trying to do, really). In fact, why are you creating two subs when you only even want one? Simpler:

    for my $name (keys %{$accessors}){
        my $accessor;
        if( $accessors->{$name} eq "setter" ){
            $accessor = sub {
                ...
            };
        } else {
            $accessor = sub {
                ...
            };
        }

        no strict 'refs';
        *$name = $accessor;
    }
[download]

Symbolic refs only access package variables. You never assigned a value to the $setter package variable, the error message is correct.

That explains a lot of things.

I would suggest restructuring your my $accessors (untested):

 my $accessors = { map ({$_=>{TYPE=>'getter',CODE=>undef}} qw |my gett
+er names| ),
                   map ({$_=>{TYPE=>'setter',CODE=>undef}} qw |setter 
+names2|)
              };
[download]

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