Help for this page

Select Code to Download


  1. or download this
    sub ref_to_db {
  my $db = DBI->connect(...);
  return $db;
}
  2. or download this
    sub closenow {
  my $rDB = shift;
  my $DB = $$rDB;
  $DB->disconnect();
}
  3. or download this
    sub closeplease {
  my $Booga = shift;
  my $DB = ${$Booga->{DB}};
  $DB->disconnect();
}
  4. or download this
    sub closeitnow {
  my $rDB = shift;
...
  $DB->disconnect();
  $rDB = undef; # now the caller's reference is gone, too!
}