use File::Spec; use File::Basename qw(dirname); my $basedir = File::Spec->rel2abs(File::Spec->catdir(dirname(__FILE__), '..')); my $dbpath = File::Spec->catfile($basedir, 'db', 'development.db'); +{ 'DBI' => [ "dbi:SQLite:dbname=$dbpath", '', '', +{ sqlite_unicode => 1, } ], 'YAHOO' => { 'APP_ID' => 'アプリケーションID', 'SECRET_KEY' => 'シークレットKEY', 'AFFILIATE_ID' => 'アフィリエイトID', }, }; package Meisanhin::