Help for this page

Select Code to Download


  1. or download this
    sub dbi_connect {
      my $self = shift;
    ...
      $$self{dbh} = undef;
      return 1;
    }