File Coverage

blib/lib/OpenTracing/Interface/SpanContext.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 24 24 100.0


line stmt bran cond sub pod time code
1             package OpenTracing::Interface::SpanContext;
2              
3              
4 3     3   572869 use strict;
  3         29  
  3         90  
5 3     3   26 use warnings;
  3         7  
  3         129  
6              
7              
8             our $VERSION = '0.20';
9              
10              
11 3     3   1513 use Role::MethodReturns;
  3         447340  
  3         20  
12              
13 3     3   23548 use OpenTracing::Types qw/SpanContext/;
  3         4136  
  3         31  
14 3     3   1379 use Types::Standard qw/Str Value/;
  3         8  
  3         17  
15              
16 3     3   3707 use namespace::clean;
  3         19938  
  3         31  
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;