おいぬま日報(不定期)

@ [cpan] FindBin::libs

use FindBin;
use lib "$Bin/lib";

のようなことを use FindBin::libs; 一発で済ませられるモジュール。

#!/usr/local/bin/perl
 
use strict;
use warnings;
use FindBin::libs;
use MyModule;

みたいな感じで使えます。ちなみに↓のようなディレクトリ構造でも、hoge.plからuse FindBin::libs; すればlibディレクトリを再帰的にたどって探し出してくれます。ここまでしてくれるとは思いませんでした。

app/
|-- lib
`-- script
    `-- dir
        `-- hoge.pl