Inside your eval, add something like:

$code = $database{$AUTOLOAD};
$pseudo_file = get_pseudo_for($AUTOLOAD); # like "Database_entry_for_p
+kg::foo"
eval qq{#line 1 "$pseudo_file"\n$code};
...
[download]

Now when an error triggers, you'll get

whatever error from Database_entry_for_pkg::foo, line 14
[download]

in $@ Use the cpp triggers, luke!

-- Randal L. Schwartz, Perl hacker