浏览代码

Added skel utility hash2string function to enable Params' header testing

Alois Mahdal (@azzgoat) 12 年前
父节点
当前提交
53795aa7e8
共有 1 个文件被更改,包括 10 次插入0 次删除
  1. 10
    0
      lib/SugarTrail/STM.pm

+ 10
- 0
lib/SugarTrail/STM.pm 查看文件

@@ -86,4 +86,14 @@ sub get_current_revision {
86 86
     return time;
87 87
 }
88 88
 
89
+sub mkmymime {
90
+    my $d = shift;
91
+    my $d1 = "; "; my $d2 = "=";
92
+    my @t;
93
+    foreach (sort keys %$d) {
94
+        push @t, $_ . $d2 . $d->{$_};
95
+    }
96
+    return join $d1, @t;
97
+}
98
+
89 99
 1;