File Coverage

blib/lib/Test/Harness/FileFilter.pm

Criterion	Covered	Total	%
statement	15	25	60.0
branch	0	4	0.0
condition			n/a
subroutine	5	6	83.3
pod			n/a
total	20	35	57.1

package Test::Harness::FileFilter;

use warnings;
use strict;

use File::Spec::Functions qw(splitpath);

use vars qw($VERSION);

$VERSION = '0.01';

my $IgnorePattern = $ENV{HARNESS_IGNORE_FILES} ? qr/$ENV{HARNESS_IGNORE_FILES}/ : undef;
my $AcceptPattern = $ENV{HARNESS_ACCEPT_FILES} ? qr/$ENV{HARNESS_ACCEPT_FILES}/ : undef;

# Replace _run_all_tests from Test::Harness;
{
    require Test::Harness;
    no warnings 'redefine';
    my $orig_func = \&Test::Harness::_run_all_tests;

    *Test::Harness::_run_all_tests = sub {
        my @tests = @_;

        # Always comply to ignore first
        if (defined $IgnorePattern) {
            @tests = grep {
                my (undef, undef, $filename) = splitpath($_);
                $filename !~ $IgnorePattern;
            } @tests;
        }

        # Then continue filter by accepting those matching next
        if (defined $AcceptPattern) {
            @tests = grep {
                my (undef, undef, $filename) = splitpath($_);
                $filename =~ $AcceptPattern;
            } @tests;
        }

        # Run original function
        &$orig_func(@tests);
    }
}

1; # End of Test::Harness::FileFilter
__END__