Lines Matching refs:pat

98     my ($pat) = map { qr/$_/ } join '|' => map {
102     return grep { $_ !~ $pat } @files;
208 	for my $pat (get_module_pat($module)) {
209 	    $ModuleByPat{$pat} = $module;
214     for my $pat (keys %ModuleByPat) {
215 	if (-e $pat) {
216 	    $ExpModuleByPat{$pat} = $ModuleByPat{$pat};
218 	    for my $exp (glob($pat)) {
219 		$ExpModuleByPat{$exp} = $ModuleByPat{$pat};
250 	    for my $pat (@OrderedModuleByPat) {
252 		if (-d $pat) {
255 			if ($file =~ m|^$pat|i) {
256 			    $ModuleByFile{$file} = $ModuleByPat{$pat};