in arrays and hashrefs. When the object goes out of scope its contents
are saved to the log as a JSON string.
PLEASE NOTE: Until this module reaches version 1.0, I might make some
non-backwards-comp
stage'} = 1;
$qnd->{'tracks'} = [qw{1 4}];
$qnd->{'coord'} = {x=>1, z=>42};
which results in a JSON string like this:
{"stage":1,"tracks":["1","4"],"time":"Tue May 20 17:13:22 2014","coord":{"x":
he only input for this method is the string to write to the log. The string
should already be in JSON format and should have no newline. C<write_entry()>
doesn't do anything about formatting the str
package Log::QnD;
use strict;
use Carp 'croak';
use String::Util ':all';
use JSON qw{to_json -convert_blessed_universally};
# debugging
# use Debug::ShowStuff ':all';
# use Debug::ShowStuff::ShowVar;
in arrays and hashrefs. When the object goes out of scope its contents
are saved to the log as a JSON string.
PLEASE NOTE: Until this module reaches version 1.0, I might make some
non-backwards-comp
stage'} = 1;
$qnd->{'tracks'} = [qw{1 4}];
$qnd->{'coord'} = {x=>1, z=>42};
which results in a JSON string like this:
{"stage":1,"tracks":["1","4"],"time":"Tue May 20 17:13:22 2014","coord":{"x":