血管が切れかけたが大丈夫だった話

弊社の一部プロジェクトは、DBIx::Classのcreate_ddl_dirを使っています。

$dir = "$FindBin::Bin/../../$dir";# /Users/hisaichi5518/.......
$schema->create_ddl_dir(
    [qw/MySQL/],
    $next_version,
    $dir,
    $preversion,
   ...
);

しかし、これには問題がありました。
これを実行すると私の環境ではSQLを作る時のパスがこうなる時があるのです。

# バージョン51を作成する時
/Users/hisaichi550-518/.....

クソが！！！！！！！！！
ふざけんな！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

今はこんなの直してる余裕なんてないのでこうしました。

use Path::Class;
$dir = dir("$FindBin::Bin/../../$dir")->relative;

解決！(๑′ᴗ'๑)ｴﾍﾍღ、

最近は、弊社のtypesterが作成したGitDDLを使うと非常に捗るとの噂を聞いており、非常に気になっています。 #ステマ