File Coverage

blib/lib/OpenTracing/Interface/SpanContext.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package OpenTracing::Interface::SpanContext;
2              
3              
4 3     3   560782 use strict;
  3         29  
  3         89  
5 3     3   26 use warnings;
  3         6  
  3         118  
6              
7              
8             our $VERSION = '0.19';
9              
10              
11 3     3   1893 use Role::MethodReturns;
  3         452291  
  3         20  
12              
13 3     3   18919 use OpenTracing::Types qw/SpanContext/;
  3         3768  
  3         33  
14 3     3   1390 use Types::Standard qw/Str Value/;
  3         9  
  3         31  
15              
16              
17              
18             around get_baggage_item => instance_method ( Str $key ) {
19            
20             returns_maybe( Value,
21             $original->( $instance => ( $key ) )
22             )
23            
24             };
25              
26              
27              
28             around with_baggage_item => instance_method ( Str $key, Str $value ) {
29            
30             returns( SpanContext ,
31             $original->( $instance => ( $key, $value ) )
32             )
33            
34             };
35              
36              
37              
38             1;