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

42.11

/lib/OpenTelemetry/Propagator/TextMap.pm

use Object::Pad;
# ABSTRACT: A context propagator for OpenTelemetry using string key / value pairs

use experimental 'signatures';

package OpenTelemetry::Propagator::TextMap;

our $VERSION = '0.001';

sub SETTER {
    sub ( $carrier, $key, $value ) { $carrier->{$key} = $value; return }
}

sub GETTER {
    sub ( $carrier, $key ) { $carrier->{$key} }
}

class OpenTelemetry::Propagator::TextMap :does(OpenTelemetry::Propagator) {
    use OpenTelemetry::Context;

    method inject (
        $carrier,
        $context = OpenTelemetry::Context->current,
        $setter  = SETTER
    ) {
        return $self;
    }

    method extract (
        $carrier,
        $context = OpenTelemetry::Context->current,
        $getter  = GETTER
    ) {
        return $context;
    }

    method keys () { }
}

1	use Object::Pad;	9✔
2	# ABSTRACT: A context propagator for OpenTelemetry using string key / value pairs
3
4	use experimental 'signatures';	9✔
5
6	package OpenTelemetry::Propagator::TextMap;
7
8	our $VERSION = '0.001';
9
10	sub SETTER {
11	sub ( $carrier, $key, $value ) { $carrier->{$key} = $value; return }	1✔
12	}	3✔
13
14	sub GETTER {
15	sub ( $carrier, $key ) { $carrier->{$key} }	3✔
16	}	3✔
17
18	class OpenTelemetry::Propagator::TextMap :does(OpenTelemetry::Propagator) {	6✔
19	use OpenTelemetry::Context;	9✔
20
21	method inject (
22	$carrier,	×
23	$context = OpenTelemetry::Context->current,	×
24	$setter = SETTER	×
25	) {	×
26	return $self;	×
27	}
28
29	method extract (
30	$carrier,	×
31	$context = OpenTelemetry::Context->current,	×
32	$getter = GETTER	×
33	) {	×
34	return $context;	×
35	}
36
37	method keys () { }	×
38	}

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