Acme::Code::Police vs Acme::Code::FreedomFighter

Acme::Code::Police

Acme::Code::Police は、useしたモジュールが use strict していない場合そのファイルを unlink するというモジュールです。恐ろしいですね。

$ vim acme.pl 
use Acme::Code::Police;
print "no Acme, no Life.\n";
$ ls
acme.pl
$ perl acme.pl 
no Acme, no Life.
$ ls
  # ファイルが消えてる！

こんな感じに、Acmeを叫ぼうとするとポリスが飛んできて逮捕(unlink)されてしまいます。このままでは自由にAcmeを叫ぶ事もできません。

Acme::Code::FreedomFighter

そんな恐ろしいモジュールに敢然と立ち向かう戦士が Acme::Code::FreedomFighter です。
どんなモジュールかはソースを見ればわかると思います。

このモジュールをuseすると、 Acme::Code::Police がファイルを unlink しようとしたときに現れ、逆に Acme::Code::Police を unlink しようとします。

$ vim acme.pl
use Acme::Code::Police;
use Acme::Code::FreedomFighter;
print "no Acme, no Life.\n";
$ ls
acme.pl
$ perl acme.pl
no Acme, no Life.
$ ls
acme.pl # ファイルが残ってる

ありがとうゲバラ、これでポリスに取り締まられる事もなく自由にAcmeを叫ぶ事ができるようになりました。