Add directive to include files

lib/Test/PerlTidy.pm

@@ -121,7 +121,12 @@ sub list_files {
     $test->BAIL_OUT('exclude should be an array')
       unless ref $excludes eq 'ARRAY';
 
-    my $finder = File::Finder->type('f')->name(qr{[.](?:pl|pm|PL|t)$});
+    my $includes = $args{include} || [qr{[.](?:pl|pm|PL|t)$}];
+
+    $test->BAIL_OUT('include should be an array')
+      unless ref $includes eq 'ARRAY';
+
+    my $finder = File::Finder->type('f');
     $finder->{options}->{untaint} = 1;
     my @files = $finder->in($path);
 
@@ -130,6 +135,18 @@ sub list_files {
 
     foreach my $file ( keys %keep ) {
 
+        my $include_me;
+        foreach my $include ( @{$includes} ) {
+            $include_me =
+              ref $include ? ( $file =~ $include ) : ( $file =~ /^$include/ );
+            last if $include_me;
+        }
+
+        if ( not $include_me ) {
+            delete $keep{$file};
+            next;
+        }
+
         foreach my $exclude ( @{$excludes} ) {
 
             my $exclude_me =
@@ -274,6 +291,13 @@ attempted, which can impact how the exclusion rules apply.  If your
 exclusion rules do not seem to be working, turn on the C<debug>
 option to see the paths of the files that are being kept/excluded.
 
+=item include
+
+By default, C<run_tests()> will check all files matching the regex object
+C<qr{[.](?:pl|pm|PL|t)$}>. Set C<include> to define additional files
+to include in the list. See C<exclude> for an explaination how files
+are matched.
+
 =item path
 
 Set C<path> to the path to the top-level directory which contains

t/exclude_files.t

@@ -12,6 +12,7 @@ my @wanted_files = sort qw(
   t/critic.t
   t/exclude_files.t
   t/exclude_perltidy.t
+  t/include_files.t
   t/is_file_tidy.t
   t/list_files.t
   t/perltidy.t

t/include_files.t

@@ -0,0 +1,32 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+
+use Test::PerlTidy;
+
+my @wanted_files = sort qw(
+  MANIFEST
+  Makefile.PL
+  t/critic.t
+  t/exclude_files.t
+  t/exclude_perltidy.t
+  t/include_files.t
+  t/is_file_tidy.t
+  t/list_files.t
+  t/perltidy.t
+  t/pod-coverage.t
+  t/pod.t
+  t/strict.t
+);
+
+my @found_files = Test::PerlTidy::list_files(
+    path    => '.',
+    include => [ qr(\.(?:PL|t)$), qr(MANIFEST) ],
+    exclude => [ 'blib', 'lib' ],
+    debug   => 0,
+);
+
+is_deeply( \@wanted_files, \@found_files );

t/list_files.t

@@ -13,6 +13,7 @@ my @wanted_files = sort qw(
   t/critic.t
   t/exclude_files.t
   t/exclude_perltidy.t
+  t/include_files.t
   t/is_file_tidy.t
   t/list_files.t
   t/perltidy.t