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::
![Perl x Amon2 x Yahoo API で地図プロットからの名産品検索 - Qiita](https://cdn-ak-scissors.b.st-hatena.com/image/square/70990b914cdffd606d05567b2d4caa8e561eb8ad/height=288;version=1;width=512/https%3A%2F%2Fqiita-user-contents.imgix.net%2Fhttps%253A%252F%252Fcdn.qiita.com%252Fassets%252Fpublic%252Farticle-ogp-background-9f5428127621718a910c8b63951390ad.png%3Fixlib%3Drb-4.0.0%26w%3D1200%26mark64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTkxNiZ0eHQ9UGVybCUyMHglMjBBbW9uMiUyMHglMjBZYWhvbyUyMEFQSSUyMCVFMyU4MSVBNyVFNSU5QyVCMCVFNSU5QiVCMyVFMyU4MyU5NyVFMyU4MyVBRCVFMyU4MyU4MyVFMyU4MyU4OCVFMyU4MSU4QiVFMyU4MiU4OSVFMyU4MSVBRSVFNSU5MCU4RCVFNyU5NCVBMyVFNSU5MyU4MSVFNiVBNCU5QyVFNyVCNCVBMiZ0eHQtY29sb3I9JTIzMjEyMTIxJnR4dC1mb250PUhpcmFnaW5vJTIwU2FucyUyMFc2JnR4dC1zaXplPTU2JnR4dC1jbGlwPWVsbGlwc2lzJnR4dC1hbGlnbj1sZWZ0JTJDdG9wJnM9MzdlYjAxNThlOTkyYzM1YmQxZDQ4YTMwNTZhYzQzYjY%26mark-x%3D142%26mark-y%3D112%26blend64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTYxNiZ0eHQ9JTQwc2FzYXJvbjM5NyZ0eHQtY29sb3I9JTIzMjEyMTIxJnR4dC1mb250PUhpcmFnaW5vJTIwU2FucyUyMFc2JnR4dC1zaXplPTM2JnR4dC1hbGlnbj1sZWZ0JTJDdG9wJnM9MmM0OWIwZTNiNGNjNjU1OTJjY2I3MGRiMTUwY2FmZmM%26blend-x%3D142%26blend-y%3D491%26blend-mode%3Dnormal%26s%3Dfe7926df448a698a0ba0de3fba90be69)