I made the change to my local copy of Pg.pm and that seems to have fixed it:
---snip
my $query_table = $table;
->$query_table =~ s/["]{2}/"/g;
->my @Args<https://github.com/Args> = ($query_table);
my $schemawhere;
if (length $schema) {
-- snip
Error:
INSERT into " public.best!Tab le@Ever2$%^&()_+{}:'""?/.>,<~ 4" ("
(id)$mipublic.lk'","""""''""""2--","not$%^&()
_+{}:'""?/.>,<~nice","""""""""3'","""""''""""++") VALUES (?, ?, ?, ?, ?)
DBD::Pg::db last_insert_id failed: Could not find the table " public.best!Tab
le@Ever2$%^&*()_+{}\:'""?/.>,<~ `4" [for Statement "
SELECT i.indisprimary,
COALESCE(
-- this takes the table name as text, not regclass
