Added htogr::data(), able render and log simple hash data structure (stats etc.)

lib/htlogr.pm

@@ -41,6 +41,7 @@ sub log {
     my $msg     = shift;
     my $tag     = shift;
     my $i       = shift;
+
     my $uri;
     $uri .= $self->{path};
     $uri .= "?msg=" . uri_escape($msg);
@@ -50,4 +51,24 @@ sub log {
     return $self->{http}->body();
 }
 
+sub data {
+    my $self    = shift;
+    my $data    = shift;
+    my $tag     = shift;
+    my $i       = shift;
+
+    #TODO: Make them global
+    my $DIV_FIELD =";";
+    my $DIV_VALUE ="=";
+
+    carp("data must be a hash reference" unless ref $data == 'HASH');
+
+    my @fields;
+    foreach (keys %$data) {
+        push @fields, join $DIV_VALUE, $_, $data->$_;
+    }
+
+    $self->log( (join $DIV_FIELD, @fields), $tag, $i );
+}
+
 1;