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;
    }