view release on metacpan or  search on metacpan

t/00-create.t  view on Meta::CPAN

	local @_ = qw(lib);
	my @res;
	while(@_){
		local $_ = shift;
		local $\="\n";
		for ( glob("$_/*"), glob("$_/.*") ) {
			next if m{/\.\.?$};
			if ( -d ) {
				push(@_,$_) unless m{/CVS$};
			} elsif ( m{\.pm$} ) {
				($_) = join("::", map { split m{/+}, $_ } m{^lib/(.*)\.pm});
				push(@res, $_);
			} else {
				print;
			};
		};
	};
	return map { mod_name $_ } @res;
};
my @mods = find_mods();
plan( tests => 1+(keys %data)+@mods);