#!/usr/bin/env perl
use
5.10.0;
use
strict;
use
warnings;
use
Log::LTSV::Instance;
my
$_obj
=
bless
{
cval
=> 1.
},
'TEST'
;
my
$_hash
= {
ha
=> 1,
hb
=> 2,
};
my
$_array
= [ 1, 2 ];
my
$loaf
= {
obj
=>
$_obj
,
hash
=>
$_hash
,
array
=>
$_array
,
};
my
$raw
= {
'obj._class_'
=>
ref
$_obj
,
'obj.cval'
=>
$_obj
->{cval},
'hash.ha'
=> 1,
'hash.hb'
=> 2,
'array.0'
=> 1,
'array.1'
=> 2,
};
my
$logger
= Log::LTSV::Instance->new(
logger
=>
sub
{ } );
timethese(200_000, {
loaf
=>
sub
{
$logger
->info(
$loaf
) },
raw
=>
sub
{
$logger
->info(
$raw
) },
});