From a29cbbb563d683caae5dd459715af528c2f3eed0 Mon Sep 17 00:00:00 2001
From: Angelo Naselli <anaselli@linux.it>
Date: Wed, 5 Aug 2015 16:18:01 +0200
Subject: Added setmask to mask logging level

---
 lib/ManaTools/Shared/Logging.pm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

(limited to 'lib/ManaTools/Shared')

diff --git a/lib/ManaTools/Shared/Logging.pm b/lib/ManaTools/Shared/Logging.pm
index e2f31eb3..46f102c8 100644
--- a/lib/ManaTools/Shared/Logging.pm
+++ b/lib/ManaTools/Shared/Logging.pm
@@ -159,6 +159,7 @@ sub DEMOLISH {
 
     Sys::Syslog::closelog();
 }
+
 #=============================================================
 
 =head2 R
@@ -321,6 +322,29 @@ sub D {
     $self->S('debug', $s, @para);
 }
 
+#=============================================================
+
+=head2 setmask
+
+=head3 INPUT
+
+    $self: this object
+    $mask: new log mask
+
+=head3 DESCRIPTION
+
+    Sets the log mask for the current process to $mask and returns the old mask.
+    See Sys::Syslog::setlogmask for details.
+
+=cut
+
+#=============================================================
+sub setmask {
+    my ($self, $mask) = @_;
+
+    Sys::Syslog::setlogmask($mask);
+}
+
 
 no Moose;
 __PACKAGE__->meta->make_immutable;
-- 
cgit v1.2.1