Acme::StrictAndWarnings
昨日のコードをそれっぽいナマエで。
これって、useの重複が多いシステムとか集めてやれば、楽になるかもなぁ。
って、どっかで、むかしそういう記事を読んだきがする。
package Acme::StrictAndWarnings; our $VERSION = 0.01; use Filter::Simple; FILTER { $_ = 'use strict; use warnings;' . $_ ; } 1; =head1 NAME Acme::StrictAndWarnings - use strinct and warnings both. =head1 SYNOPSYS use Acme::StrictAndWarnings; =head1 DESCRIPTION Automatically use strict; and use warnings; =head1 AUTHOR Tomohiro Teranishi <tomohiro.teranishi@gmail.com> =cut