use if $COND, MODULE

http://d.hatena.ne.jp/gfx/20110528/1306594596
で、

use if __FILE__ eq $0,
    'Smart::Comments';

と、見慣れないuseの使い方をしてるのが気になって perldoc -f use したけど分からないので perldoc.jp 見たら載っていた。
http://perldoc.jp/func/use
少なくともperl5.12のドキュメントには載っているようだ。
手元の環境は5.8.8で、ドキュメントには載って無くてもこの機能は使えた。