Added "set" function for setting of template variables from outside

This is basically an easy way to get around strictness warnings.

diff --git a/UCW/Temple.pm b/UCW/Temple.pm
index e1a21e305b3a032a2aed33b726f7f86a9e7d8de7..ad4f021e6e54ff8c7b17371b3196eb62ee7d1040 100644 (file)
--- a/UCW/Temple.pm
+++ b/UCW/Temple.pm
@@ -11,7 +11,7 @@ require Exporter;
 our $VERSION = 1.0;
 our @ISA = qw(Exporter);
 our @EXPORT = qw(out);
-our @EXPORT_OK = qw();
+our @EXPORT_OK = qw(set);
 
 use IO::File;
 
@@ -23,6 +23,13 @@ sub out {
        return;
 }
 
+sub set {
+       my ($var, $val) = @_;
+       $var = "T::$var";
+       no strict 'refs';
+       $$var = $val;
+}
+
 our %deps = ();
 
 sub add_depend($) {