plan 'no_plan';
+my %skipped;
+if( -f 'MANIFEST.SKIP' ) {
+ # We don't want these
+ open( SKIP, 'MANIFEST.SKIP' ) or die "Could not open manifest skip file";
+ while(<SKIP>) {
+ chomp;
+ $skipped{$_} = 1;
+ }
+ close SKIP;
+}
my %used;
find( \&wanted, qw/ lib t / );
return if $File::Find::dir =~ m!/.git($|/)!;
return if $File::Find::name =~ /~$/;
return if $File::Find::name =~ /\.(pod|html)$/;
+ return if $skipped{$File::Find::name};
# read in the file from disk
my $filename = $_;
for ( sort keys %used ) {
my $first_in = Module::CoreList->first_release($_);
next if defined $first_in and $first_in <= 5.00803;
- next if /^(Text::Tradition|inc|t)(::|$)/;
+ next if /^(Text::Tradition|inc|t|feature)(::|$)/;
#warn $_;
ok( exists $required{$_}, "$_ in Makefile.PL" )