File Coverage

blib/lib/Protocol/TLS/Application.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 2 0.0
total 26 28 92.8


line stmt bran cond sub pod time code
1             package Protocol::TLS::Application;
2 2     2   10 use strict;
  2         4  
  2         52  
3 2     2   9 use warnings;
  2         4  
  2         44  
4 2     2   9 use Carp;
  2         4  
  2         117  
5 2     2   11 use Protocol::TLS::Trace qw(tracer);
  2         2  
  2         87  
6 2     2   9 use Protocol::TLS::Constants qw(const_name :versions :alert_desc :c_types);
  2         3  
  2         715  
7              
8             sub decode {
9 3     3 0 8 my $ctx = shift;
10 3         27 $ctx->state_machine( 'recv', CTYPE_APPLICATION_DATA );
11 3         18 return $ctx->application_data(@_);
12             }
13              
14             sub encode {
15 3     3 0 14 $_[1];
16             }
17              
18             1