Check existence of cpanfile, Makefile.PL, Build.PL to detect root directory

lib/App/PRT/Collector/AllFiles.pm

@@ -17,8 +17,10 @@ sub find_project_root_directory {
 
     my $current = dir($directory);
     while (1) {
-        if (-e $current->file('cpanfile')) {
-            return $current->stringify;
+        for my $file (qw(cpanfile Makefile.PL Build.PL)) {
+            if (-e $current->file($file)) {
+                return $current->stringify;
+            }
         }
 
         if ($current eq $current->parent) {

t/App-PRT-Collector-AllFiles.t

@@ -20,10 +20,16 @@ sub find_project_root_directory: Tests {
     };
 
     subtest 'directory with cpanfile' => sub {
-        my $directory = t::test::prepare_test_code('contain_ignores');
-
-        is App::PRT::Collector::AllFiles->find_project_root_directory($directory), $directory, 'found from root directory';
-        is App::PRT::Collector::AllFiles->find_project_root_directory("$directory/lib"), $directory, 'found from sub directory';
+        for my $name (qw(with_cpanfile with_build_pl with_makefile_pl contain_ignores)) {
+            subtest $name => sub {
+                my $directory = t::test::prepare_test_code($name);
+
+                is App::PRT::Collector::AllFiles->find_project_root_directory($directory), $directory, 'found from root directory';
+                if (-e "$directory/lib") {
+                    is App::PRT::Collector::AllFiles->find_project_root_directory("$directory/lib"), $directory, 'found from sub directory';
+                }
+            };
+        };
     };
 
     subtest 'not existing directory' => sub {

t/data/with_build_pl/Build.PL

@@ -0,0 +1 @@
+print "Hello, World!\n";

t/data/with_cpanfile/cpanfile

@@ -0,0 +1 @@
+requires 'perl', '5.010001';

t/data/with_makefile_pl/Makefile.PL

@@ -0,0 +1 @@
+print "Hello, World!\n";