warning メッセージ予防策

perl

普段、wanrning を見つけるたびにせっせと defined 挟んだりして対応しているのですが、View の中で呼ばれてる箇所など、うっかり気付かないで数日過ぎてしまうと、あとで該当箇所を追うのが若干手間になってしまったりします。

そこで、

use warnings FATAL => 'all';

の出番なのですが、全部のパッケージに記述するのも面倒なので、下記のようにして使っています。

package MyApp;

use strict;
use warnings;

sub import {
    strict->import;
    warnings->import('FATAL' => 'all');
}

1;

package MyApp::Foo;

use MyApp;