view release on metacpan or  search on metacpan

Vars.pm  view on Meta::CPAN

 use MyConfig qw($dbh);    # Configuration variables for this app
 use Lib;         # Utility library for this app

 Lib::connect;    # Call utility function

 # Now $dbh is available.  Lib.pm and main share the same $dbh
 my $sth = $dbh->prepare(...)
 # ==== END MAIN PROGRAM ====


=head1 BUGS AND LIMITATIONS

=over 1

=item *

All errors are reported as being from the "use Config::Vars" line of
the calling module, instead of the line where the error actually
occurred.

=item *