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]