CPAN::Groonga

r" perl scripts/log.pl
use strict;
use warnings;
use Curses::UI;

use Data::Dumper;
use JSON::Tiny qw(encode_json);
use Data::Faker;

use Log::Log4perl;



use Log::Log4perl::DataDumper;
use Log::Log4

thods)
      {
       $data{$_} = $faker->$_();
       }
      
    my $l = {};
    $l->{'json'}  = encode_json(\%data);
    $l->{'dumper'} = Dumper(%data);
    $l->{raw} = \%data;
    $log->debug($l)

ur $VERSION = 1.7;
use strict;
use warnings;

use Moose;
use namespace::autoclean;

use JSON::Tiny qw(encode_json);
use Sys::Hostname;
use Data::UUID;
use POSIX qw(strftime);

use Log::Log4perl;

use 

;
    { $self->short_message() }    #fire off lazy message builder
    return {%$self};
}

sub TO_JSON {
    my $self = shift;
    { $self->short_message() }    #fire off lazy message builder
    retu