Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- package TMBO::Config;
- use strict;
- use warnings;
- use Config::Abstract::Ini;
- use constant CONFIG_PATH => "db.ini";
- sub get {
- my $ini = new Config::Abstract::Ini(CONFIG_PATH);
- my %config = $ini->get_entry('db');
- my $server = $config{'server'};
- my $db = $config{'db'};
- my $user = $config{'user'};
- my $pass = $config{'pass'};
- my $db_string = "DBI:mysql:$db:$server";
- return ($db_string, $user, $pass);
- }
- 1;
Add Comment
Please, Sign In to add comment