Lines Matching refs:leaf

373 	    my $leaf = pop @dirs;
374 	    my $leafname = "$leaf.pm";
627     foreach my $leaf (<*>) {
628         if (-d $leaf) {
629             $leaf =~ s/\.DIR\z//i
631             next if $leaf =~ /\A(?:\.|\.\.|t|demo)\z/;
632             if ($leaf eq 'lib') {
636             if ($leaf eq $first) {
641         return $leaf
643         $leaf =~ s/\.\z//
648             if $leaf =~ /\A(ChangeLog
660         if ($leaf eq "$last.pm") {
664         return $leaf;