More Moose removal.

lib/BackRest/Exception.pm

@@ -8,11 +8,25 @@ use strict;
 use warnings;
 use Carp;
 
-use Moose;
+####################################################################################################################################
+# CONSTRUCTOR
+####################################################################################################################################
+sub new
+{
+    my $class = shift;       # Class name
+    my $iCode = shift;       # Error code
+    my $strMessage = shift;  # ErrorMessage
 
-# Module variables
-has iCode => (is => 'bare');       # Exception code
-has strMessage => (is => 'bare');  # Exception message
+    # Create the class hash
+    my $self = {};
+    bless $self, $class;
+
+    # Initialize exception
+    $self->{iCode} = $iCode;
+    $self->{strMessage} = $strMessage;
+
+    return $self;
+}
 
 ####################################################################################################################################
 # CODE
@@ -34,5 +48,4 @@ sub message
     return $self->{strMessage};
 }
 
-no Moose;
-__PACKAGE__->meta->make_immutable;
+return 1;

lib/BackRest/ProcessAsync.pm

@@ -28,6 +28,7 @@ sub new
     my $self = {};
     bless $self, $class;
 
+    # Initialize thread and queues
     $self->{oThreadQueue} = Thread::Queue->new();
     $self->{oThreadResult} = Thread::Queue->new();
     $self->{oThread} = threads->create(\&process_thread, $self);

lib/BackRest/Remote.pm

@@ -96,7 +96,7 @@ sub new
 }
 
 ####################################################################################################################################
-# thread_kill
+# THREAD_KILL
 ####################################################################################################################################
 sub thread_kill
 {

lib/BackRest/Utility.pm

@@ -498,7 +498,7 @@ sub log
     # Throw a typed exception if code is defined
     if (defined($iCode))
     {
-        return BackRest::Exception->new(iCode => $iCode, strMessage => $strMessage);
+        return new BackRest::Exception($iCode, $strMessage);
     }
 
     # Return the message test so it can be used in a confess