view release on metacpan or  search on metacpan

scripts/typetuner  view on Meta::CPAN

{
	#define these here so they are intialized on each call
	my ($font, %feat_all, $feat_set, %feat_tag, @commands, %line_metrics);
	my ($feat_all_fn, $feat_set_fn, $font_fn, $font_out_fn);
    
    #the $opt_? vars are declared above as globals
    #initialize them here on each call
    #the list of $opt_? vars here MUST match the list above!!!
	foreach ($opt_h, $opt_d, $opt_f, $opt_t, $opt_m, $opt_n, $opt_o, $opt_v, $opt_x)
		{$_ = undef;}
	local (@ARGV) = @_; #use 'local' instead of 'my' so &getopts works right
	getopts($opt_str); #sets $opt_?'s and removes the switches from @ARGV
	
	if (scalar @ARGV == 0 || $opt_h)
		{Usage_print;}
	
	my ($cmd);
	$cmd = $ARGV[0];
	if (not $cmd =~ /^(createset|applyset|applyset_xml|delete|extract|add)$/)
	{ #no subcommands were given, use simplified command line
		if (scalar @ARGV == 2)