On Mon, Feb 04, 2002 at 08:53:46AM +0100, Steffen Goeldner wrote:
> Tim Bunce wrote:
> >
> > Umm, carrying on from there... move %get_info_constants into DBD::Oracle::GetInfo
> > and make get_info do:
> >
> > sub get_info {
> > my($dbh, $info_type) = @_;
> > require DBD::Oracle::GetInfo;
> > my $v = $DBD::Oracle::GetInfo::info{int($info_type)};
> > $v = &$v($dbh, $info_type) if ref $v eq 'CODE';
> ----------
> The implementation (currently) doesn't need that parameter.
Sure, I figure few will - but it might be handy in some cases.
Tim.
> Steffen
> diff -Nrc DBD-Oracle-1.12.orig/Oracle/GetInfo.pm DBD-Oracle-1.12/Oracle/GetInfo.pm
> *** DBD-Oracle-1.12.orig/Oracle/GetInfo.pm Thu Jan 01 01:00:00 1970
> --- DBD-Oracle-1.12/Oracle/GetInfo.pm Sun Feb 03 21:36:11 2002
Wonderful - thanks.
Tim.
