antlr-3.4/runtime/Perl5/t/lib/My/Test/Class/Load.pm

package My::Test::Class::Load;

use strict;
use warnings;

use base 'Test::Class::Load';

sub is_test_class {
    my ($class, $file, $dir) = @_;

    return if !$class->SUPER::is_test_class($file, $dir);

    if (exists $ENV{TEST_CLASS}) {
        my $pattern = $ENV{TEST_CLASS};

        (my $class = $file) =~ s!^\Q$dir\E/!!xms;
        $class =~ s/\.pm$//xms;
        $class =~ s!/!::!gxms;

        return if $class !~ /$pattern/xms;
    }

    return 1;
}

1;
__END__