show_results process_options files_to_modules
finish_tap_output
reload_manifest);
-$VERSION = 0.04;
+$VERSION = 0.05;
require Exporter;
} @_;
}
+sub filter_excluded {
+ my ($m, @files) = @_;
+
+ return @files
+ unless my $excluded = $Modules{$m}{EXCLUDED};
+
+ my ($pat) = map { qr/$_/ } join '|' => map {
+ ref $_ ? qr/\Q$_\E/ : $_
+ } @{ $excluded };
+
+ return grep { $_ !~ $pat } @files;
+}
+
sub get_module_files {
my $m = shift;
- return map { expand_glob($_) } get_module_pat($m);
+ return filter_excluded $m => map { expand_glob($_) } get_module_pat($m);
}