# Copyright 2018-2019 The OpenSSL Project Authors. All Rights Reserved.

#

# Licensed under the OpenSSL license (the "License").  You may not use

# this file except in compliance with the License.  You can obtain a copy

# in the file LICENSE in the source distribution or at

# https://www.openssl.org/source/license.html

use strict;

package TLSProxy::Alert;

sub new

{

    my $class = shift;

    my ($server,

        $encrypted,

        $level,

        $description) = @_;

    my $self = {

        server => $server,

        encrypted => $encrypted,

        level => $level,

        description => $description

    };

    return bless $self, $class;

}

#Read only accessors

sub server

{

    my $self = shift;

    return $self->{server};

}

sub encrypted

{

    my $self = shift;

    return $self->{encrypted};

}

sub level

{

    my $self = shift;

    return $self->{level};

}

sub description

{

    my $self = shift;

    return $self->{description};

}

1;