Added T::arg() which allows to access template arguments in Perl code

[temple.git] / UCW / Temple.pm

diff --git a/UCW/Temple.pm b/UCW/Temple.pm
index e1a21e305b3a032a2aed33b726f7f86a9e7d8de7..3854e3dab11008bac5f7445d122d454168a6badc 100644 (file)
--- a/UCW/Temple.pm
+++ b/UCW/Temple.pm
@@ -237,4 +237,8 @@ sub load {
        return;
 }
 
+sub arg {
+       return $UCW::Temple::arguments->{$_[0]};
+}
+
 1;