From e903e1a5c543932c7953af9b1bf9f79c02df4111 Mon Sep 17 00:00:00 2001
From: vitalif <vitalif@2be256b4-0725-11dc-8e68-8b2fc2fe2491>
Date: Sat, 27 Jun 2009 13:21:50 +0000
Subject: [PATCH] vars()

---
 VMX/Template.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/VMX/Template.pm b/VMX/Template.pm
index cc07e35..9b4091c 100644
--- a/VMX/Template.pm
+++ b/VMX/Template.pm
@@ -149,10 +149,16 @@ sub load_lang_hashes
 # $obj->clear()
 sub clear
 {
-    shift->{tpldata} = {};
+    %{ shift->{tpldata} } = ();
     return 1;
 }
 
+# Получить хеш для записи данных
+sub vars
+{
+    shift->{tpldata};
+}
+
 # Функция загружает, компилирует и возвращает результат для хэндла
 # $obj->parse('handle')
 sub parse