Generalized field and value dividers

lib/htsheet.pm

@@ -82,10 +82,14 @@ sub parse_message {
     my ($self, $message) = @_;
     my $data;
 
+    #TODO: Make them global
+    my $DIV_FIELD =";";
+    my $DIV_VALUE ="=";
+    
     # split to fields
-    my @fields  = split ";", $message;
+    my @fields  = split $DIV_FIELD, $message;
     %$data      = map {
-        my @fld = split "=", $_;
+        my @fld = split $DIV_VALUE, $_;
         ( 2 == scalar @fld ? @fld : (dummy => 'non-parseable') )
     } @fields;