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