File Coverage

blib/lib/Protocol/TLS/Compression.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 17 19 89.4


line stmt bran cond sub pod time code
1             package Protocol::TLS::Compression;
2 2     2   10 use strict;
  2         3  
  2         48  
3 2     2   9 use warnings;
  2         3  
  2         45  
4 2     2   11 use Protocol::TLS::Constants qw();
  2         3  
  2         144  
5              
6             sub decode {
7 20     20 0 43 my ( $ctx, $buf_ref, $buf_offset, $length ) = @_;
8 20         83 substr $$buf_ref, $buf_offset, $length;
9             }
10              
11             sub encode {
12 20     20 0 101 $_[1];
13             }
14              
15             1