Select Code to Download

    my (undef, $filename, $line) = caller;
    # XXX reformat $attr as needed for _install_method
...
    {   no warnings "redefine";
        DBI->_install_method ("DBI::${subtype}::$method", "$filename a
+t line $line", \%attr);
        }