File Coverage

blib/lib/OpenTracing/Role/ScopeManager.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	10	14	71.4
condition	1	3	33.3
subroutine	9	9	100.0
pod	1	1	100.0
total	58	64	90.6

package OpenTracing::Role::ScopeManager;

our $VERSION = 'v0.85.0';

use Moo::Role;
use MooX::Should;

use Carp;
use OpenTracing::Types qw/Scope Span assert_Scope/;
use Role::Declare::Should;
use Types::Standard qw/Bool CodeRef Dict Maybe/;

# The chosen design is to have only 1 active scope and use callback to change
# what the 'previous' scope would be when we close a scope.
#
# An other design could be building a stack, using 'push/pop' to keep track of
# which one to activate on close.
#
has active_scope => (
    is => 'rwp',
    should => Scope,
    init_arg => undef,
    reader => 'get_active_scope',
    writer => 'set_active_scope',
);

sub activate_span {
    my $self = shift;
    my $span = shift or croak "Missing OpenTracing Span";

    my $options = { @_ };

    my $finish_span_on_close =
        exists( $options->{ finish_span_on_close } ) ?
            !! delete $options->{ finish_span_on_close }
            : !undef
    ; # use 'truthness' of param if provided, or set to 'true' otherwise

    my $scope = $self->build_scope(
        span                 => $span,
        finish_span_on_close => $finish_span_on_close,
        %$options,
    );

    $self->set_active_scope( $scope );

    return $scope
}

instance_method build_scope (
    Span :$span,
    Bool :$finish_span_on_close
) :Return ( Scope ) { };



BEGIN {
#   use Role::Tiny::With;
    with 'OpenTracing::Interface::ScopeManager'
}

1;