File Coverage

blib/lib/OpenTelemetry/Propagator/TraceContext/TraceFlags.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	4	4	100.0
condition	4	5	80.0
subroutine	6	6	100.0
pod	3	4	75.0
total	45	47	95.7

use Object::Pad ':experimental(init_expr)';
# ABSTRACT: Represents TraceFlags in a W3C TraceContext

package OpenTelemetry::Propagator::TraceContext::TraceFlags;

our $VERSION = '0.033';

class OpenTelemetry::Propagator::TraceContext::TraceFlags {
    use OpenTelemetry::Common ();
    my $logger = OpenTelemetry::Common::internal_logger;

    field $flags :param :reader = 0;

    sub BUILDARGS ( $class, $flags = undef ) {
        $flags //= 0;

        if ( $flags !~ /^\d+$/a ) {
            $logger->warn(
                'Non-numeric value when creating TraceFlags',
                { value => $flags },
            );
            $flags = 0;
        }

        if ( 0 > $flags || $flags > 255 ) {
            $logger->warn(
                'Out-of-range value when creating TraceFlags',
                { value => $flags },
            );
            $flags = 0;
        }

        ( flags => $flags );
    }

    method to_string () { sprintf '%02x', $flags }

    method sampled () { !!( $flags & 1 ) }
}