asafp has asked for the wisdom of the Perl Monks concerning the following question:
Hi Monks,
Asaf
I have a web application running on Apache/mod_perl.
Each request sent to the application opens an Apache child process.
I have written a DBConnection class which connects to Oracle using DBI.
I have implemented the class as a singleton so the same connection is used till the end of the request.
The problem is that it seems that the instance of the class is not dead when the request is done
and the next request does not create a new instance but keeps using the first one.
Does it make sense? Do child processes share objects between them?
Here's my DBConnection class:Thanks,package DBConnection; my $dbm; #==========# sub new { #==========# my($class, $name) = @_; my $self = { name => $name }; bless($self, $class); return $self; } #============# sub instance #============# { my ($class)= @_; if(not defined $dbm) { $dbm = new DBConnection(); } return $dbm; } #==========================# sub getSingleConnection #==========================# { my ($self) = @_; unless($dbm->{dbh}) { $dbm->{dbh} = $self->getConnection(); } return $dbm->{dbh}; } #==================# sub getConnection #==================# { my ($self) = @_; my $dbh; eval { $dbh = DBI->connect('dbi:Oracle:host=dbserver;sid=db_sid;port= +1521','user','passwrd'); or return undef; }; warn $@ if $@; return undef if $@; return $dbh; }
Asaf
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Singleton Objects for DBI Connection
by pfaut (Priest) on Oct 06, 2010 at 18:39 UTC | |
by asafp (Novice) on Oct 10, 2010 at 13:24 UTC | |
Re: Singleton Objects for DBI Connection
by pajout (Curate) on Oct 06, 2010 at 17:35 UTC |
Back to
Seekers of Perl Wisdom