This patch fixes RT bug #60528

lib/Test/Pod/Coverage.pm

@@ -83,6 +83,7 @@ use 5.006;
 use strict;
 use warnings;
 
+use File::Spec;
 use Pod::Coverage;
 use Test::Builder;
 
@@ -209,6 +210,10 @@ sub all_modules {
     my @starters = @_ ? @_ : _starting_points();
     my %starters = map {$_,1} @starters;
 
+    # Starters paths and their depths
+    my %starters_parts =
+        map { $_, scalar(File::Spec->splitdir($_)) } grep { -d $_ } @starters;
+
     my @queue = @starters;
 
     my @modules;
@@ -229,7 +234,13 @@ sub all_modules {
             next unless $file =~ /\.pm$/;
 
             my @parts = File::Spec->splitdir( $file );
-            shift @parts if @parts && exists $starters{$parts[0]};
+
+            # Deal with paths.. e.g blib/, lib/ or /foo/bar
+            my ($known_path) = grep { $file =~ m/^$_/ } keys %starters;
+            for (1..$starters_parts{$known_path}) {
+                shift @parts;
+            }
+
             shift @parts if @parts && $parts[0] eq "lib";
             $parts[-1] =~ s/\.pm$// if @parts;
 

t/all_modules_absolute.t

@@ -0,0 +1,19 @@
+#!perl -T
+
+use strict;
+
+use File::Spec;
+use Test::More tests => 2;
+
+BEGIN {
+    use_ok( "Test::Pod::Coverage" );
+}
+
+my @files = Test::Pod::Coverage::all_modules( File::Spec->rel2abs("blib") );
+
+# The expected files have slashes, not File::Spec separators, because
+# that's how File::Find does it.
+my @expected = qw( Test::Pod::Coverage );
+@files = sort @files;
+@expected = sort @expected;
+is_deeply( \@files, \@expected, "Got all the distro files" );