mirror of
https://github.com/pgbackrest/pgbackrest.git
synced 2024-12-14 10:13:05 +02:00
39 lines
1.2 KiB
Perl
39 lines
1.2 KiB
Perl
####################################################################################################################################
|
|
# EXCEPTION MODULE
|
|
####################################################################################################################################
|
|
package BackRest::Exception;
|
|
|
|
use threads;
|
|
use strict;
|
|
use warnings;
|
|
use Carp;
|
|
|
|
use Moose;
|
|
|
|
# Module variables
|
|
has iCode => (is => 'bare'); # Exception code
|
|
has strMessage => (is => 'bare'); # Exception message
|
|
|
|
####################################################################################################################################
|
|
# CODE
|
|
####################################################################################################################################
|
|
sub code
|
|
{
|
|
my $self = shift;
|
|
|
|
return $self->{iCode};
|
|
}
|
|
|
|
####################################################################################################################################
|
|
# MESSAGE
|
|
####################################################################################################################################
|
|
sub message
|
|
{
|
|
my $self = shift;
|
|
|
|
return $self->{strMessage};
|
|
}
|
|
|
|
no Moose;
|
|
__PACKAGE__->meta->make_immutable;
|