Added parameter passing to the script from cmdline

Implements the -s option to fill `%DEF` from the
command line.

Author: Chris White

perlpp.pl

@@ -434,13 +434,20 @@ sub Main {
 	StartOB();
 	print "package PPP_${Package};\nuse strict;\nuse warnings;\n";
 
-	# TODO transfer parameters from the command line to the processed file.
+	# Transfer parameters from the command line (-s) to the processed file.
 	# Per commit 7bbe05c, %DEF is for those parameters.
-	print "my %DEF = ();\n";
+	print "my %DEF = (\n";
+	for my $defname (keys %{$opts{DEFS}}) {
+		print "    $defname => ", ${$opts{DEFS}}{$defname}, "\n";
+	}
+	print ");\n";
 
+	# Initial code from the command line, if any
 	print $opts{EVAL}, "\n" if $opts{EVAL};
 
+	# The input file
 	ProcessFile( $opts{INPUT_FILENAME} );
+
 	my $script = EndOB();							# The generated Perl script
 
 	if ( $opts{DEBUG} ) {

t/cmdline.t

@@ -2,7 +2,7 @@
 # Tests of perlpp command-line options
 use strict;
 use warnings;
-use Test::More;
+use Test::More 'no_plan';
 use IPC::Run3;
 use constant CMD => 'perl perlpp.pl';
 
@@ -18,9 +18,15 @@ my @testcases=(
 	['--eval \'my $foo=42;\'','<?= $foo ?>', qr/^42$/],
 	['-d -e \'my $foo=42;\'','<?= $foo ?>', qr/^my \$foo=42;/m],
 	['--debug --eval \'my $foo=42;\'','<?= $foo ?>', qr/^print\s+\$foo\s*;/m],
+	['-s foo=1', '<?= $DEF{foo} ?>',qr/^1$/],
+	['-s foo=\"blah\"', '<?= $DEF{foo} ?>',qr/^blah$/],
+		# Have to escape the double-quotes so perl sees it as a string
+		# literal instead of a bareword.
 ); #@testcases
 
-plan tests => scalar @testcases;
+#plan tests => scalar @testcases;
+# TODO count the out_re and err_re in @testcases, since the number of
+# tests is the sum of those counts.
 
 for my $lrTest (@testcases) {
 	my ($opts, $testin, $out_re, $err_re) = @$lrTest;