Help for this page

Select Code to Download

Select or download this

sub opendb {
   my $self=shift;
...
#   return $self->{_dbh}; # Should return $self here
   return $self;
   }