Select Code to Download

package ECClib;

...
sub get_dbh {
  $dbh ||= db_connect( $dbuser, $dbpasswd, $dbserver );
}

use ECClib;

...
  my $dbh = ECClib->get_dbh;  # gets the same instance!
  ...;
}

package ECClib;
use v5.10;
...
sub get_dbh {
  state $dbh = db_connect( $dbuser, $dbpasswd, $dbserver );
}