Parcourir la source

Added skel utility hash2string function to enable Params' header testing

Alois Mahdal (@azzgoat) il y a 12 ans
Parent
révision
53795aa7e8
1 fichiers modifiés avec 10 ajouts et 0 suppressions
  1. 10
    0
      lib/SugarTrail/STM.pm

+ 10
- 0
lib/SugarTrail/STM.pm Voir le fichier

@@ -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;