view release on metacpan or  search on metacpan

lib/MyConf.pm  view on Meta::CPAN

		$config->{'mysql'}->{'host'},
		$config->{'mysql'}->{'port'},
	);
	return DBI->connect(
		$data_source,
		$config->{'mysql'}->{'user'},
		$config->{'mysql'}->{'pass'},
		{
			PrintError           => 0,
			RaiseError           => 1,
			mysql_enable_utf8mb4 => 1,
		}
	);
}

sub BUILD {
	my ($self) = @_;

	MyConf::Init->init_from_file(); # copy conf from file to env
	$self->{'_dbh'} = $self->_init_dbh(
		{