#!/usr/bin/perl -w

use strict;
use warnings;

package ThisException; {

    use Log::Log4perl;

    our $logger = Log::Log4perl->get_logger('test1');

    use Exception::Class (
        'ThisException' => {
            description => 'Parent class.',
        },
    );

    sub full_message {
        my $self = shift;

        $logger->fatal($self->message);

        return $self->message;
    }
}

use Log::Log4perl;

Log::Log4perl::init_and_watch('/etc/log4perl.conf', 'HUP');

our $logger = Log::Log4perl->get_logger('test1');

$logger->info('This is my INFO message!');

ThisException->throw(
    error => "This will be a Log4perl FATAL message.",
);

exit 0;