view release on metacpan or  search on metacpan

lib/App/prepare4release/Deps.pm  view on Meta::CPAN

}

sub _skip_use_module {
	my ( $class, $m ) = @_;
	return 1 unless defined $m && length $m;
	return 1 if $m =~ /^v?5\.\d+/;
	return 1 if $m eq 'perl';
	my %pragma = map { $_ => 1 } qw(
		strict warnings utf8 feature experimental subs mro overload
		vars integer English autodie lib constant deprecate
		open sigtrap sort attrs bytes charnames locale
		namespaces tie filetest indirect
	);
	return 1 if $pragma{$m};
	return 0;
}

sub _strip_pod {
	my ( $class, $text ) = @_;
	$text =~ s{^=[a-z][a-z]*\b.*?^=cut\b}{}gms;
	return $text;