view release on metacpan or  search on metacpan

lib/Pod/Simple/Wiki/Twiki/Upload.pm  view on Meta::CPAN

		next if $line !~ /^use\s+(?:aliased\s+(['"]))((?:[\w:]+)?Client::\w+)\1;$/;
		# We have a client class.
		return join( '/', 'lib', split /::/, $2 ) . '.pm'
	}
	return;
}


sub localize_dir_path {
	my ($path) = @_;
	return File::Spec->catdir( split m{/}, $path );
}


sub rscan_dir {
	my ($dir, $pattern) = @_;
	my @result;
	local $_; # find() can overwrite $_, so protect ourselves
	my $subr = !$pattern ? sub {push @result, $File::Find::name} :
		!ref($pattern) || (ref $pattern eq 'Regexp') ? sub {push @result, $File::Find::name if /$pattern/} :
		ref($pattern) eq 'CODE' ? sub {push @result, $File::Find::name if $pattern->()} : die "Unknown pattern type";