Merge pull request #367 from rose/excludePaths

exclude inc and local directories from indexing

Author: oalders

lib/MetaCPAN/Document/File.pm

@@ -615,16 +615,21 @@ sub is_pod_file {
     shift->name =~ /\.pod$/i;
 }
 
-=head2 is_in_test_directory
+=head2 is_in_excluded_directory
 
-Returns true if the file is below a t directory.
+Returns true if the file is below an excluded directory.
 
 =cut
 
-sub is_in_test_directory {
-    my $self = shift;
-    my @parts = split m{/}, $self->path;
-    return any { $_ eq 't' } @parts;
+sub is_in_excluded_directory {
+    my $self     = shift;
+    my @excluded = qw[t inc local];
+    my @parts    = split m{/}, $self->path;
+    return any {
+        my $part = $_;
+        any { $_ eq $part } @excluded;
+    }
+    @parts;
 }
 
 =head2 add_module
@@ -664,7 +669,7 @@ does not include any modules, the L</indexed> property is true.
 sub set_indexed {
     my ( $self, $meta ) = @_;
 
-    if ( $self->is_in_test_directory() ) {
+    if ( $self->is_in_excluded_directory() ) {
         foreach my $mod ( @{ $self->module } ) {
             $mod->indexed(0);
         }

t/document/file.t

@@ -13,19 +13,32 @@ my %stub = (
 );
 
 {
-    my @test_paths     = qw( t/whomp foo/t/bar cuppa/t );
-    my @non_test_paths = qw( foo/bart/shorts tit/mouse say/wat );
+    my @excluded_paths = qw(
+        t/whomp
+        foo/t/bar
+        cuppa/t
+        conv/inc/ing
+        buy/local/beer
+    );
+
+    my @non_excluded_paths = qw(
+        foo/bart/shorts
+        tit/mouse
+        say/wat
+        wince/inducing/module
+        not/locally/made
+    );
 
-    foreach my $path (@test_paths) {
+    foreach my $path (@excluded_paths) {
         my $file = MetaCPAN::Document::File->new( %stub, path => $path );
-        my $msg = "$path is in a test directory";
-        ok( $file->is_in_test_directory(), $msg );
+        my $msg = "$path is in an excluded directory";
+        ok( $file->is_in_excluded_directory(), $msg );
     }
 
-    foreach my $path (@non_test_paths) {
+    foreach my $path (@non_excluded_paths) {
         my $file = MetaCPAN::Document::File->new( %stub, path => $path );
-        my $msg = "$path is not in a test directory";
-        ok( !$file->is_in_test_directory(), $msg );
+        my $msg = "$path is not in an excluded directory";
+        ok( !$file->is_in_excluded_directory(), $msg );
     }
 }