アカウントやパスワードをコードに直接書き込むことをハードコーディングというらしい

らしいので、そんなときはConfig::Pitを使おう！知らなかったorz

1. 準備（あらかじめアカウント情報を設定しておく）

コマンドラインからワンライナー

$ perl -MConfig::Pit -e'Config::Pit::set("google.com", 
data=>{ username => "ABC12345", password => "password" })'

またCPANからConfig::Pitをインストールすると、コマンドラインからppitが使えるようになる。ヘルプの見方は、

$ ppit help

あと設定したアカウント情報は、default.yaml（$HOME直下に.pitというフォルダが自動生成されている）というファイルに保存されているので、普通にエディタで編集してもいいかも。

2. 使い方（コード中での呼び出し方）

use Config::Pit;

my $config = pit_get("google.com");
die "not preset account data in Pit." if !%$config;
my $username = $config->{username} or die 'username not found.';
my $password = $config->{password} or die 'password not found.';

▼参考