Lines Matching refs:pm
825 # .pod files, and .pm files. it also scans the pod files specified in
852 # if there is a directory then use the .pod and .pm files within it.
854 # if ($Pages{$libpod} =~ /([^:]*[^(\.pod|\.pm)]):/) {
855 if ($Pages{$libpod} =~ /([^:]*(?<!\.pod)(?<!\.pm)):/) {
856 # find all the .pod and .pm files within the directory
860 @files = grep(/(\.pod|\.pm)\z/ && ! -d $_, readdir(DIR));
863 # scan each .pod and .pm file for =item directives
877 ### $pod =~ /^(.*)(\.pod|\.pm)$/;
881 $Pages{$libpod} =~ /([^:]*\.pm):/) {
882 # scan the .pod or .pm file for =item directives
927 # files, and .pm files. notes those that it finds. this information will
957 } elsif (/\.pm\z/) { # .pm
958 s/\.pm\z//;
960 $Pages{$_} .= "$dir/$_.pm:";
961 push(@pods, "$dir/$_.pm");
1773 $Pages{ $page_name } =~ /([^:]*$page)\.(?:pod|pm):/
1783 # but A::C is found in lib/A/C.pm, then A::B is assumed to be in
1784 # lib/A/B.pm. This is also limited, but it's an improvement.
1799 # if ($section ne "" && $Pages{$page} =~ /([^:]*[^(\.pod|\.pm)]):/) {
1800 if ($section ne "" && $Pages{$page} =~ /([^:]*(?<!\.pod)(?<!\.pm)):/) {
1806 # is a .pod or .pm that might become that .html
1814 } elsif ($Pages{$page} =~ /([^:]*)\.pm:/) {