Help for this page

Select Code to Download


  1. or download this
    package TArtLib;
use strict;
use vars qw($dbh);
...
sub dbh {
  return $dbh;
}
  2. or download this
    package TArt::Editor;
use TArtLib;
...
my $dbh = TArtLib->dbh;
  3. or download this
    sub dbh {
  unless ($dbh) {
    # connect to the database now.
  }
  return $dbh;
}