$code = $database{$AUTOLOAD};
$pseudo_file = get_pseudo_for($AUTOLOAD); # like "Database_entry_for_pkg::foo"
eval qq{#line 1 "$pseudo_file"\n$code};
...