6553776671

Committed 17 Oct 2023 10:57PM UTC coverage: 73.52% (-18.9%) from 92.443%

Build # 6553776671

Build Type

push

github

Committed by

jjatria

Commit Message

Add experimental support for testing metrics

Run Details

2 of 2 new or added lines in 1 file covered. (100.0%)

472 of 642 relevant lines covered (73.52%)

4.18 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

70.59

/lib/OpenTelemetry/Trace/SpanContext.pm

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

package OpenTelemetry::Trace::SpanContext;

our $VERSION = '0.001';

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,
);

1	use Object::Pad ':experimental(init_expr)';	12✔
2	# ABSTRACT: The part of an OpenTelemetry span that propagates
3
4	package OpenTelemetry::Trace::SpanContext;
5
6	our $VERSION = '0.001';
7
8	use OpenTelemetry::Common;	12✔
9	use OpenTelemetry::Propagator::TraceContext::TraceFlags;	12✔
10	use OpenTelemetry::Propagator::TraceContext::TraceState;	12✔
11
12	class OpenTelemetry::Trace::SpanContext {
13	use OpenTelemetry::Constants qw(	12✔
14	INVALID_TRACE_ID
15	INVALID_SPAN_ID
16	);	12✔
17
18	field $trace_flags :param :reader = undef;
19	field $trace_state :param :reader = undef;	1✔
20	field $trace_id :param :reader = undef;	×
21	field $span_id :param :reader = undef;	2✔
22	field $remote :param :reader = 0;	×
23
24	BUILD {	×
25	$trace_flags //= OpenTelemetry::Propagator::TraceContext::TraceFlags->new;
26	$trace_state //= OpenTelemetry::Propagator::TraceContext::TraceState->new;
27	$trace_id //= OpenTelemetry::Common->generate_trace_id;
28	$span_id //= OpenTelemetry::Common->generate_span_id;
29	}
30
31	method valid () {	1✔
32	$trace_id && $trace_id ne INVALID_TRACE_ID	1✔
33	&& $span_id && $span_id ne INVALID_SPAN_ID;
34	}
35
36	method hex_trace_id () { unpack 'H*', $trace_id }	×
37	method hex_span_id () { unpack 'H*', $span_id }	×
38	}
39
40	use constant INVALID => OpenTelemetry::Trace::SpanContext->new(	12✔
41	trace_id => INVALID_TRACE_ID,
42	span_id => INVALID_SPAN_ID,
43	);	12✔

jjatria / perl-opentelemetry / 6553776671

Source File Press 'n' to go to next uncovered line, 'b' for previous

Source File
Press 'n' to go to next uncovered line, 'b' for previous