Other packages in the module: Bio::DB::GFF::Adaptor::dbi::caching_handle

Package variables

Synopsis

No synopsis!

Description

No description!

Methods

Methods description

None available.

Methods code

sub new {

  my $class = shift;
  my $dbh   = shift;
  bless {dbh=>$dbh},$class;

}

sub prepare {

  my $self = shift;
  my $sth = $self->{dbh}->prepare(@_) or return;
  $sth->{mysql_use_result} = 1 if $self->{dbh}->{Driver}{Name} eq 'mysql';
  $sth;

}

sub prepare_delayed {

  my $self = shift;
  my $sth = $self->{dbh}->prepare(@_) or return;
  $sth;

}

sub inuse {

    shift->{dbh}->{ActiveKids};

}

sub DESTROY {

}

sub AUTOLOAD {

  my($pack,$func_name) = $AUTOLOAD=~/(.+)::([^:]+)$/;
  return if $func_name eq 'DESTROY';
  my $self = shift;
  if( defined $self->{dbh} ) {
      $self->{dbh}->$func_name(@_);
  }

}

General documentation

Report to the author.

DBI, Bio::DB::GFF, bioperl

Lincoln Stein <lstein@cshl.org>.
Copyright (c) 2001 Cold Spring Harbor Laboratory.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.