| Subject: | 03-perl_critic.t test fail |
eval { use Test::Perl::Critic (-format => " => [%p] %m at line %l,
column %c. %e."); };
use is always executed at BEGIN stage.
replace with
eval q{ use Test::Perl::Critic (-format => " => [%p] %m at line %l,
column %c. %e."); };
or with require and import calls.
You can test it with
use Module::Mask;my $mask = new Module::Mask ('Test::Perl::Critic');
-------
Alexandr Ciornii, http://chorny.net