view release on metacpan or  search on metacpan

Get/Utils.pm  view on Meta::CPAN

Readonly::Array our @EXPORT_OK => qw(process_module_name_and_version);

our $VERSION = 0.14;

# Code from Menlo::CLI::Compat
sub process_module_name_and_version {
	my $module_string = shift;

	# Plack@1.2 -> Plack~"==1.2"
	# BUT don't expand @ in git URLs
	$module_string =~ s/^([A-Za-z0-9_:]+)@([v\d\._]+)$/$1~== $2/;

	# Plack~1.20, DBI~"> 1.0, <= 2.0"
	my ($module_name, $module_version_range);
	if ($module_string =~ /\~[v\d\._,\!<>= ]+$/) {
		($module_name, $module_version_range)
			= split '~', $module_string, 2;
	} else {
		$module_name = $module_string;
	}