view release on metacpan or  search on metacpan

xt/author/cpants.t  view on Meta::CPAN

my $tb_path = File::Spec->catfile( $dist_root, $tb_name );

if ( !-f File::Spec->catfile( $dist_root, 'Makefile' ) ) {
	my $rc = system( 'perl', 'Makefile.PL' );
	BAIL_OUT("perl Makefile.PL failed (exit $rc)") if $rc != 0;
}

my $make = $ENV{MAKE} || 'make';
if ( -e $tb_path ) {
	unlink $tb_path
		or BAIL_OUT("Cannot remove stale tarball $tb_path (gzip would prompt): $!");
}
{
	my $rc = system( $make, 'tardist' );
	BAIL_OUT("make tardist failed (exit $rc)") if $rc != 0;
}
-f $tb_path && -s _
	or BAIL_OUT("Expected tarball $tb_path after tardist");

my $an = eval {
	Module::CPANTS::Analyse->new( { dist => $tb_path, opts => {} } );