NAME

Log::LTSV::Instance - LTSV logger

SYNOPSIS

use Log::LTSV::Instance;
my $logger = Log::LTSV::Instance->new(
    logger => sub { print @_ },
    level  => 'DEBUG',
);
$logger->crit(msg => 'hungup');
# time:2015-03-06T22:27:40        log_level:CRITICAL      msg:hungup

DESCRIPTION

Log::LTSV::Instance is LTSV logger.

cf. http://ltsv.org/

METHODS

new

logger

level

( error / crit / warn / info / debug )

$logger->error(msg => 'hungup');
# time:2015-03-06T22:27:40        log_level:ERROR      msg:hungup

$logger->crit(msg => 'hungup');
# time:2015-03-06T22:27:40        log_level:CRITICAL      msg:hungup

$logger->warn(msg => 'hungup');
# time:2015-03-06T22:27:40        log_level:WARN      msg:hungup

$logger->info(msg => 'hungup');
# time:2015-03-06T22:27:40        log_level:INFO      msg:hungup

$logger->debug(msg => 'hungup');
# time:2015-03-06T22:27:40        log_level:INFO      msg:hungup

sticks

$logger->sticks(
    id   => 1,
    meta => sub {
        my @caller = caller(2);
        {
            file => $caller[1],
            line => $caller[2],
        }
    },
);
$logger->crit(msg => 'hungup');
# time:2015-03-06T22:27:40      log_level:CRITICAL    id:1      meta.file:t/print.t     meta.line:115       msg:hungup
$logger->info(msg => 'hungup');
# time:2015-03-06T22:27:40      log_level:INFO    id:1      meta.file:t/print.t     meta.line:115       msg:hungup

LICENSE

Copyright (C) Hiroyoshi Houchi.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHOR

Hiroyoshi Houchi <git@hixi-hyi.com>