view release on metacpan or  search on metacpan

lib/Alien/BatToExeConverter.pm  view on Meta::CPAN

		Carp::croak("Invalid ico file");
	}

	# DOS or GUI application?
	my $dos = !! $param{dos};

	# Hand off to the executable
	my $bat2exe = bat2exe_path();
	my $stdin   = '';
	my $stdout  = '';
	my $stderr  = '';
	my $rv      = IPC::Run3::run3( [
		$bat2exe, $bat, $exe, $ico, $dos,
	], \$stdin, \$stdout, \$stderr );

	

	1;
}

1;

=pod

t/03_bat2exe.t  view on Meta::CPAN

		exe => $exe,
		dos => 1,
	);
	ok( $rv, 'bat2exe ok' );
	ok( -f $exe, 'Created exe file' );
}

SCOPE: {
	my $stdin  = '';
	my $stdout = '';
	my $stderr = '';
	my $rv     = IPC::Run3::run3( [ $exe ], \$stdin, \$stdout, \$stderr );
	is( $stdin,  '', 'STDIN ok'  );
	is( $stdout, '', 'STDOUT ok' );
	is( $stderr, '', 'STDERR ok' );
}





#####################################################################
# Repeat with the Window Mode

File::Remove::clear( $exe );

t/03_bat2exe.t  view on Meta::CPAN

		exe => $exe,
		dos => 0,
	);
	ok( $rv, 'bat2exe ok' );
	ok( -f $exe, 'Created exe file' );
}

SCOPE: {
	my $stdin  = '';
	my $stdout = '';
	my $stderr = '';
	my $rv     = IPC::Run3::run3( [ $exe ], \$stdin, \$stdout, \$stderr );
	is( $stdin,  '', 'STDIN ok'  );
	is( $stdout, '', 'STDOUT ok' );
	is( $stderr, '', 'STDERR ok' );
}