If you want to avoid connecting until you need a connection, you can do this:
my $dbh;
sub dbConnect {
return if defined $dbh; # exit if we are already connected.
my $dsn = "DBI:mysql:database:localhost";
my $db_user_name = 'username';
my $db_password = 'password';
$dbh = DBI->connect
($dsn, $db_user_name, $db_password, {RaiseError => 1}) ||
die("cannot connect to DB: ".DBI::errstr."\n",$dbh);
}
sub foo {
# Can still see $dbh in here
dbConnect();
my $sth = $dbh->prepare(...);
}
Since dbConnect() is called each time we want a connection (and not until then), and since it returns if we are already connected, $dbh becomes a persistent connection that is made the first time it is needed.
This method also opens the door for disconnecting from the DB and reconnecting later, if that should ever become useful. (Admittedly, I can't think of when that might be useful, but you never know. ;-P)
Then again, you might just use connect_cached. Though that does something ever-so-slightly different.
radiantmatrix
require General::Disclaimer;
s//2fde04abe76c036c9074586c1/; while(m/(.)/g){print substr(' ,JPacehklnorstu',hex($1),1)}
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|