view release on metacpan or  search on metacpan

mojomojo.conf  view on Meta::CPAN

    
    # DB User
    #user              db_user
    #password          db_password
    
    # SQLite dsn (default data store)
    dsn               dbi:SQLite:mojomojo.db

    # Enable unicode for supported databases
    sqlite_unicode    1
    #mysql_enable_utf8 1
    #pg_enable_utf8    1
    
    </connect_info>
</Model::DBIC>

#root   __path_to(root)__
#static_path /.static/
attachment_dir ./uploads
#index_dir __path_to(index)__

script/mojomojo_spawn_db.pl  view on Meta::CPAN

        if (ref $config->{'Model::DBIC'}->{'connect_info'}) {
            $dsn  = $config->{'Model::DBIC'}->{'connect_info'}->{dsn};
            $user = $config->{'Model::DBIC'}->{'connect_info'}->{user};
            $password = $config->{'Model::DBIC'}->{'connect_info'}->{password};

            # Determine database type amongst: SQLite, Pg or MySQL
            my $db_type = lc($dsn =~ m/^dbi:(\w+)/);
            my %unicode_connection_for_db = (
                'sqlite' => { sqlite_unicode    => 1 },
                'pg'     => { pg_enable_utf8    => 1 },
                'mysql'  => { mysql_enable_utf8 => 1 },
            );
            $unicode_option = $unicode_connection_for_db{$db_type};
        }
        else {
            $dsn = $config->{'Model::DBIC'}->{'connect_info'};
        }
    }
};
if ($@) {
    die "Your DSN line in mojomojo.conf doesn't look like a valid DSN."