Remove unnecessary trailing whitespace
[openssl.git] / util / perl / TLSProxy / Alert.pm
1 # Copyright 2018 The OpenSSL Project Authors. All Rights Reserved.
2 #
3 # Licensed under the OpenSSL license (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
8 use strict;
9
10 package TLSProxy::Alert;
11
12 sub 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
31 sub server
32 {
33     my $self = shift;
34     return $self->{server};
35 }
36 sub encrypted
37 {
38     my $self = shift;
39     return $self->{encrypted};
40 }
41 sub level
42 {
43     my $self = shift;
44     return $self->{level};
45 }
46 sub description
47 {
48     my $self = shift;
49     return $self->{description};
50 }
51 1;