diff Lib/IMPL/lang.pm @ 174:d920d2b70230

minor changes
author sergey
date Tue, 04 Oct 2011 17:55:38 +0400
parents aaab45153411
children 74c27daf2e7b
line wrap: on
line diff
--- a/Lib/IMPL/lang.pm	Wed Sep 14 18:59:01 2011 +0400
+++ b/Lib/IMPL/lang.pm	Tue Oct 04 17:55:38 2011 +0400
@@ -195,4 +195,19 @@
 	return 1;
 }
 
+sub hashParse {
+	my ($s,$p,$d) = @_;
+	
+	$p = $p ? qr/$p/ : qr/\n+/;
+	$d = $d ? qr/$d/ : qr/\s*=\s*/;
+	
+	return {
+		map split($d,$_,2), split($p,$s)
+	};
+}
+
+sub hashSave {
+	
+}
+
 1;