1# Copyright 2018 The OpenSSL Project Authors. All Rights Reserved. 2# 3# Licensed under the Apache License 2.0 (the "License"). You may not use 4# this file except in compliance with the License. You can obtain a copy 5# in the file LICENSE in the source distribution or at 6# https://www.openssl.org/source/license.html 7 8use strict; 9 10package TLSProxy::Alert; 11 12sub new 13{ 14 my $class = shift; 15 my ($server, 16 $encrypted, 17 $level, 18 $description) = @_; 19 20 my $self = { 21 server => $server, 22 encrypted => $encrypted, 23 level => $level, 24 description => $description 25 }; 26 27 return bless $self, $class; 28} 29 30#Read only accessors 31sub server 32{ 33 my $self = shift; 34 return $self->{server}; 35} 36sub encrypted 37{ 38 my $self = shift; 39 return $self->{encrypted}; 40} 41sub level 42{ 43 my $self = shift; 44 return $self->{level}; 45} 46sub description 47{ 48 my $self = shift; 49 return $self->{description}; 50} 511; 52