view release on metacpan or  search on metacpan

perltidy  view on Meta::CPAN

			}
		},
		"lib",
		"t"
	);
}

my $seen_untidy = 0;

for my $file (@files) {
	local (@ARGV);
	my $tmp = $file;
	open(FILE, $file);
	my @lines = <FILE>;
	close FILE;
	my @tmps;
	my %saved_decl;
	# workaround for perltidy not supporting Modern Perl...
	if (grep /MooseX::Method::Signatures/, @lines) {
		$tmp =~ s{(\.p[ml])?$}{.nosigs$1};
		push @tmps, $tmp;