2 use warnings FATAL => 'all';
4 $] < 5.008004 ? ( skip_all => "can't test extra loading on perl < 5.8.4" )
8 my %extras = map { my $m = "$_.pm"; $m =~ s{::}{/}g; $m => 1 } qw(
16 die "Can't locate $mod in \@INC\n"
22 local $ENV{PERL_STRICTURES_EXTRA} = 1;
24 open STDERR, '>', File::Spec->devnull;
25 eval q{use strictures;};
29 is $err, '', 'can manage to survive with some modules missing!';