File Coverage

blib/lib/OpenTracing/Implementation/NoOp/Span.pm
Criterion Covered Total %
statement 7 19 36.8
branch 1 2 50.0
condition n/a
subroutine 3 15 20.0
pod 0 12 0.0
total 11 48 22.9


line stmt bran cond sub pod time code
1             package OpenTracing::Implementation::NoOp::Span;
2              
3             =head1 NAME
4              
5             OpenTracing::Implementation::NoOp::Span - 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::Span>,
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 5     5   304608 use OpenTracing::Implementation::NoOp::SpanContext;
  5         15  
  5         771  
23              
24              
25              
26 0     0 0   sub new { bless {} }
27              
28              
29              
30             sub get_context {
31 0     0 0   OpenTracing::Implementation::NoOp::SpanContext->new( )
32             }
33              
34 0     0 0   sub overwrite_operation_name { shift }
35              
36 0     0 0   sub finish { shift }
37              
38 0     0 0   sub add_tag { shift }
39 0     0 0   sub add_tags { shift }
40              
41 0     0 0   sub get_tags { return ( ) }
42              
43 0     0 0   sub log_data { shift }
44              
45 0     0 0   sub add_baggage_item { shift }
46 0     0 0   sub add_baggage_items { shift }
47              
48 0     0 0   sub get_baggage_item { undef }
49 0     0 0   sub get_baggage_items { return ( ) }
50              
51              
52             BEGIN {
53 5     5   37 use Role::Tiny::With;
  5         20  
  5         247  
54             with 'OpenTracing::Interface::Span'
55 5 50   5   167 if $ENV{OPENTRACING_INTERFACE};
56             } # check at compile time, perl -c will work
57              
58              
59              
60             1;