1 package My::Test::Class::Load; 2 3 use strict; 4 use warnings; 5 6 use base 'Test::Class::Load'; 7 8 sub is_test_class { 9 my ($class, $file, $dir) = @_; 10 11 return if !$class->SUPER::is_test_class($file, $dir); 12 13 if (exists $ENV{TEST_CLASS}) { 14 my $pattern = $ENV{TEST_CLASS}; 15 16 (my $class = $file) =~ s!^\Q$dir\E/!!xms; 17 $class =~ s/\.pm$//xms; 18 $class =~ s!/!::!gxms; 19 20 return if $class !~ /$pattern/xms; 21 } 22 23 return 1; 24 } 25 26 1; 27 __END__ 28
