Help for this page
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); }