how to share DB connection

[Ing. Branislav Gerzo]

Hi,

I have script:

use strict;
use warnings;
use lib '/data/home/2ge/perl/modules';
use Foo::Bar;

my $dbh = DBI->connect("DBI:mysql:database=foo;host=localhost;port=3306", "", 
"")
        or die "Can't connect: ", $DBI::errstr;
...

now I want to share this $dbh connection to Bar.pm, so I should use there:
sub db_get {
    my ($a) = $dbh->selectrow_array("SELECT foo FROM bar WHERE foo =
    ?", {}, shift );
}

--

 --. ,--  ,-     ICQ: 7552083      \|||/    `//EB: www.2ge.us
,--' |  - |--    IRC: [2ge]        (. .)    ,\\SN: 2ge!2ge_us
`====+==+=+===~  ~=============-o00-(_)-00o-================~
Marriage is an attempt to change a night owl into a homing pigeon.
 




-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>