view release on metacpan or  search on metacpan

lib/Pask/Config.pm  view on Meta::CPAN

use Pask::Container;

sub parse_mysql_config {
    my $config = shift;
    my $prefix = $config->{"prefix"};
    foreach (keys %{$config->{"schema"}}) {
        Pask::Container::set_database_config "$prefix$_", {
            "dsn" => "DBI:mysql:" . $config->{"schema"}{$_} . ";host=" . $config->{"ip"},
            "username" => $config->{"username"},
            "password" => $config->{"password"},
            "options" => { mysql_enable_utf8 => 1 }
        };
    }
}

sub parse_database_config {
    my $config = shift;
    my $database = $config->{"global"}{"database"};
    foreach (keys %{$database}) {
        my $database_config = undef;
        if ($database->{$_}) {