JJATRIA / OpenTelemetry-0.029 / lib / OpenTelemetry / Trace / SpanContext.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43

              
use Object::Pad ':experimental(init_expr)';
# ABSTRACT: The part of an OpenTelemetry span that propagates
package OpenTelemetry::Trace::SpanContext;
our $VERSION = '0.029';
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,
);