File Coverage

blib/lib/Log/Log4perl/OpenTracing.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod	0	2	0.0
total	28	31	90.3

package Log::Log4perl::OpenTracing;

use strict;
use warnings;

our $VERSION = 'v0.1.1';

use Log::Log4perl::Layout::PatternLayout;
use OpenTracing::GlobalTracer;

use Hash::Fold qw/flatten/;

our $OPENTRACING_NOOP_PLACEHOLDER_VALUE = '[ NoOp missing SpanContext ]';

do {
    local $Log::Log4perl::ALLOW_CODE_IN_CONFIG_FILE = 1;

    Log::Log4perl::Layout::PatternLayout::add_global_cspec(
        O =>  \&get_opentracing_context_with_curlies
    );
};

sub get_opentracing_context_with_curlies {
    my ($layout, $message, $category, $priority, $caller_level) = @_;

    my $curlies = $layout->{curlies};
    my $context = get_opentracing_context()
        or return $OPENTRACING_NOOP_PLACEHOLDER_VALUE;

    return flatten( $context )->{$curlies}
}

sub get_opentracing_context {
    OpenTracing::GlobalTracer->get_global_tracer->inject_context( {} );
}

1;