File Coverage

blib/lib/OpenTelemetry/Exporter/OTLP/Logs.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition	9	24	37.5
subroutine	4	4	100.0
pod	0	1	0.0
total	33	49	67.3

use Object::Pad ':experimental(init_expr)';
# ABSTRACT: An OpenTelemetry Protocol log exporter

package OpenTelemetry::Exporter::OTLP::Logs;

our $VERSION = '0.021';

class OpenTelemetry::Exporter::OTLP::Logs :isa(OpenTelemetry::Exporter::OTLP) {
    use OpenTelemetry::Common 'config';

    my $COMPRESSION = eval { require Compress::Zlib; 'gzip' } // 'none';

    sub BUILDARGS ( $class, %args ) {
        $args{endpoint}
            //= config('EXPORTER_OTLP_LOGS_ENDPOINT')
            // do {
                my $base = config('EXPORTER_OTLP_ENDPOINT')
                    // 'http://localhost:4318';

                ( $base =~ s|/+$||r ) . '/v1/logs';
            };

        # We cannot rely on the defaults on the base OTLP exporter
        # because at least for now, that one defaults to the TRACES
        # variables. Once it doesn't, we can simplify this to match
        # the code in the Traces exporter
        $args{compression}
            //= config()
            // $COMPRESSION;

        $args{timeout} //= config() // 10;
        $args{headers} //= config() // {};

        %args;
    }
}