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   9 use strict;
  2         3  
  2         72  
3 2     2   10 use warnings;
  2         3  
  2         56  
4 2     2   10 use Carp;
  2         3  
  2         140  
5 2     2   12 use Protocol::TLS::Trace qw(tracer);
  2         2  
  2         92  
6 2     2   10 use Protocol::TLS::Constants qw(const_name :versions :alert_desc :c_types);
  2         3  
  2         709  
7              
8             sub decode {
9 3     3 0 5 my $ctx = shift;
10 3         13 $ctx->state_machine( 'recv', CTYPE_APPLICATION_DATA );
11 3         11 return $ctx->application_data(@_);
12             }
13              
14             sub encode {
15 3     3 0 10 $_[1];
16             }
17              
18             1