use strict;
use warnings;
+use Getopt::Std;
+
# Because we know that Text::Template isn't a core Perl module, we use
# a fallback in case it's not installed on the system
use File::Basename;
undef;
}
+# Check options ######################################################
+
+my %opts = ();
+
+# -o ORIGINATOR
+# declares ORIGINATOR as the originating script.
+getopt('o', \%opts);
+
+my @autowarntext = ("WARNING: do not edit!",
+ "Generated"
+ . (defined($opts{o}) ? " by ".$opts{o} : "")
+ . (scalar(@ARGV) > 0 ? " from ".join(", ",@ARGV) : ""));
+
# Template reading ###################################################
# Read in all the templates into $text, while keeping track of each
HASH => { config => \%config,
target => \%target,
withargs => \%withargs,
+ autowarntext => \@autowarntext,
quotify1 => \"ify1,
quotify_l => \"ify_l },
DELIMITERS => [ "{-", "-}" ],