File Coverage

blib/lib/Test/OpenTracing/Integration.pm

Criterion	Covered	Total	%
statement	24	36	66.6
branch	1	8	12.5
condition			n/a
subroutine	8	11	72.7
pod	4	4	100.0
total	37	59	62.7

package Test::OpenTracing::Integration;

our $VERSION = 'v0.104.0';

use strict;
use warnings;
use parent 'Exporter';
use Carp qw/croak/;
use Test::Builder;
use Test::Deep qw/bag superhashof cmp_details deep_diag/;
use OpenTracing::GlobalTracer;

our @EXPORT = qw(
    reset_spans
    global_tracer_cmp_easy
    global_tracer_cmp_deeply
);

sub global_tracer_cmp_easy {
    my $tracer = OpenTracing::GlobalTracer->get_global_tracer;
    my $next = $tracer->can('cmp_easy')
        or croak 'Not a test implementation';
    unshift @_, $tracer;
    goto $next;
}

sub global_tracer_cmp_deeply {
    my $tracer = OpenTracing::GlobalTracer->get_global_tracer;
    my $next = $tracer->can('cmp_deeply')
        or croak 'Not a test implementation';
    unshift @_, $tracer;
    goto $next;
}


sub global_tracer_cmp_spans {
    my $tracer = OpenTracing::GlobalTracer->get_global_tracer;
    my $next = $tracer->can('cmp_spans')
        or croak 'Not a test implementation';
    unshift @_, $tracer;
    goto $next;
}


sub reset_spans {
    my $tracer = OpenTracing::GlobalTracer->get_global_tracer;
    croak 'Not a test implementation' if !$tracer->can('clear_spans');
    return $tracer->clear_spans();
}

1;