my ($caller_package) = caller;
...
no strict 'refs';
*{"${caller_package}::$name"} = $accessor;