my (undef, $filename, $line) = caller;
    # XXX reformat $attr as needed for _install_method
    my %attr = %{$attr || {}}; # copy so we can edit
    {   no warnings "redefine";
        DBI->_install_method ("DBI::${subtype}::$method", "$filename at line $line", \%attr);
        }