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 = $_;