view release on metacpan or  search on metacpan

t/integration/cli-zuzuzoo.t  view on Meta::CPAN

	my $tmp = $args{tmp};
	my $name = $args{name};
	my $version = $args{version} // '1.0.0';
	my $module = $args{module};
	my $root_name = "$name-$version";
	my $dist_root = File::Spec->catdir( $tmp, $root_name );
	my $module_path = File::Spec->catfile(
		$dist_root,
		'modules',
		split m{/}, "$module.zzm",
	);
	my $meta_path = File::Spec->catfile(
		$dist_root,
		'zuzu-distribution.json',
	);

	make_path( dirname($module_path) );

	open my $mod_fh, '>:encoding(UTF-8)', $module_path
		or die "Could not create $module_path: $!";

t/integration/cli-zuzuzoo.t  view on Meta::CPAN

		"$name-$version.json",
	);
}

sub installed_module_path {
	my ( $home, $module ) = @_;
	return File::Spec->catfile(
		$home,
		'.zuzu',
		'modules',
		split m{/}, "$module.zzm",
	);
}

sub decode_json_output {
	my ( $text ) = @_;
	return JSON::PP->new->decode($text);
}

my $tmp = tempdir( CLEANUP => 1 );
my $tar_one = make_dist_tar(