File Coverage

blib/lib/OpenTelemetry/Trace/SpanContext.pm

Criterion	Covered	Total	%
statement	40	40	100.0
branch	2	2	100.0
condition	4	6	66.6
subroutine	14	14	100.0
pod	8	8	100.0
total	68	70	97.1

use Object::Pad ':experimental(init_expr)';
# ABSTRACT: The part of an OpenTelemetry span that propagates

package OpenTelemetry::Trace::SpanContext;

our $VERSION = '0.033';

use OpenTelemetry::Common;
use OpenTelemetry::Propagator::TraceContext::TraceFlags;
use OpenTelemetry::Propagator::TraceContext::TraceState;

class OpenTelemetry::Trace::SpanContext {
    use OpenTelemetry::Constants qw(
        INVALID_TRACE_ID
        INVALID_SPAN_ID
    );

    field $trace_flags :param :reader = undef;
    field $trace_state :param :reader = undef;
    field $trace_id    :param :reader = undef;
    field $span_id     :param :reader = undef;
    field $remote      :param :reader = 0;

    BUILD {
        $trace_flags //= OpenTelemetry::Propagator::TraceContext::TraceFlags->new;
        $trace_state //= OpenTelemetry::Propagator::TraceContext::TraceState->new;
        $trace_id    //= OpenTelemetry::Common->generate_trace_id;
        $span_id     //= OpenTelemetry::Common->generate_span_id;
    }

    method valid () {
           $trace_id && $trace_id ne INVALID_TRACE_ID
        && $span_id  && $span_id  ne INVALID_SPAN_ID;
    }

    method hex_trace_id () { unpack 'H*', $trace_id }
    method hex_span_id  () { unpack 'H*', $span_id  }
}

use constant INVALID => OpenTelemetry::Trace::SpanContext->new(
    trace_id => INVALID_TRACE_ID,
    span_id  => INVALID_SPAN_ID,
);