Mercurial > pub > Impl
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;