trAvis - MANAGER

Edit File: Exception.pm

package Milter::SMTPAuth::Exception;

use Exception::Class (
    'Milter::SMTPAuth::IOError'          => { fields => [ 'error_message' ], },
    'Milter::SMTPAuth::SystemError'      => { fields => [ 'error_message' ], },
    'Milter::SMTPAuth::ArgumentError'    => { fields => [ 'error_message' ], },
    'Milter::SMTPAuth::LoggerError'      => { fields => [ 'error_message' ], },
    'Milter::SMTPAuth::SMTPError'        => { fields => [ 'error_message' ], },
    'Milter::SMTPAuth::CreateGraphError' => { fields => [ 'rrd_error', 'error_message' ], }, );

sub Milter::SMTPAuth::IOError::full_message {
    my ( $this ) = @_;
    return $this->error_message;
}

sub Milter::SMTPAuth::SystemError::full_message {
    my ( $this ) = @_;
    return $this->error_message;
}

sub Milter::SMTPAuth::ArgumentError::full_message {
    my ( $this ) = @_;
    return $this->error_message;
}

sub Milter::SMTPAuth::SMTPError::full_message {
    my ( $this ) = @_;
    return $this->error_message;
}

sub Milter::SMTPAuth::LoggerError::full_message {
    my ( $this ) = @_;
    return $this->error_message;
}

sub Milter::SMTPAuth::CreateGraphError::full_message {
    my ( $this ) = @_;
    return sprintf( '%s(%s)', $this->error_message, $this->rrd_error );
}