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

25.0

/lib/OpenTelemetry/Trace/Span/Status.pm

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

package
    OpenTelemetry::Trace::Span::Status;

our $VERSION = '0.001';

use Log::Any;
my $logger = Log::Any->get_logger( category => 'OpenTelemetry' );

class OpenTelemetry::Trace::Span::Status {
    use OpenTelemetry::Constants
        -span_status => { -as => sub { shift =~ s/^SPAN_STATUS_//r } };

    field $code        :param :reader = UNSET;
    field $description :param :reader = undef;

    ADJUST {
        $code = UNSET if $code && $code < UNSET || $code > ERROR;

        if ( $code != ERROR && $description ) {
            undef $description;
            $logger->warn('Ignoring description on a non-error span status');
        }

        $description //= '';
    }

    sub ok    ( $class, %args ) { $class->new( %args, code => OK    ) }
    sub error ( $class, %args ) { $class->new( %args, code => ERROR ) }
    sub unset ( $class, %args ) { $class->new( %args, code => UNSET ) }

    method is_ok    () { $code == OK    }
    method is_error () { $code == ERROR }
    method is_unset () { $code == UNSET }
}

1	use Object::Pad ':experimental(init_expr)';	1✔
2	# ABSTRACT: The status of an OpenTelemetry span
3
4	package
5	OpenTelemetry::Trace::Span::Status;
6
7	our $VERSION = '0.001';
8
9	use Log::Any;	1✔
10	my $logger = Log::Any->get_logger( category => 'OpenTelemetry' );
11
12	class OpenTelemetry::Trace::Span::Status {
13	use OpenTelemetry::Constants
14	-span_status => { -as => sub { shift =~ s/^SPAN_STATUS_//r } };	1✔
15
16	field $code :param :reader = UNSET;	×
17	field $description :param :reader = undef;	×
18
19	ADJUST {	×
20	$code = UNSET if $code && $code < UNSET \|\| $code > ERROR;
21
22	if ( $code != ERROR && $description ) {
23	undef $description;
24	$logger->warn('Ignoring description on a non-error span status');
25	}
26
27	$description //= '';
28	}
29
30	sub ok ( $class, %args ) { $class->new( %args, code => OK ) }	×
31	sub error ( $class, %args ) { $class->new( %args, code => ERROR ) }	×
32	sub unset ( $class, %args ) { $class->new( %args, code => UNSET ) }	×
33
34	method is_ok () { $code == OK }	×
35	method is_error () { $code == ERROR }	×
36	method is_unset () { $code == UNSET }	×
37	}

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