File Coverage

blib/lib/OpenTracing/Implementation/NoOp/ContextReference.pm
Criterion Covered Total %
statement 7 13 53.8
branch 1 2 50.0
condition n/a
subroutine 3 9 33.3
pod 0 6 0.0
total 11 30 36.6


line stmt bran cond sub pod time code
1             package OpenTracing::Implementation::NoOp::ContextReference;
2              
3             =head1 NAME
4              
5             OpenTracing::Implementation::NoOp::ContextReference - NoOp, so code won't break!
6              
7             =head1 DESCRIPTION
8              
9             Objects of this class implement the required methods of the
10             L<OpenTracing::Interface::ContextReference>,
11             to be compliant during testing and allow applications to continue working
12             without having to catch exceptions all the time.
13              
14             None of the methods will do anything useful.
15              
16             =cut
17              
18             our $VERSION = 'v0.72.0';
19              
20              
21              
22 2     2   245060 use OpenTracing::Implementation::NoOp::SpanContext;
  2         5  
  2         186  
23              
24              
25              
26 0     0 0   sub new { bless {} }
27 0     0 0   sub new_child_of { bless {} }
28 0     0 0   sub new_follows_from { bless {} }
29              
30 0     0 0   sub type_is_child_of { undef }
31 0     0 0   sub type_is_follows_from { undef }
32              
33             sub get_referenced_context {
34 0     0 0   OpenTracing::Implementation::NoOp::SpanContext->new();
35             }
36              
37              
38              
39              
40             BEGIN {
41 2     2   13 use Role::Tiny::With;
  2         3  
  2         96  
42             with 'OpenTracing::Interface::ContextReference'
43 2 50   2   49 if $ENV{OPENTRACING_INTERFACE};
44             } # check at compile time, perl -c will work
45              
46              
47              
48             1;