Changeset 2318 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Log.pm

Timestamp:

12/06/19 00:43:13 (5 years ago)

Author:

nanardon

Message:

Clean error message at end of request processing

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Log.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Log.pm

@@ -166 +166 @@
 }
 
+=head2 flush_last_message ($level)
+
+Clean message history, if defined on message for C<$level> are cleaned
+
+=cut
+
+sub flush_last_message {
+    my ($level) = @_;
+
+    if ( defined( $level ) ) {
+        $lastmessages{$level} = undef;
+    } else {
+        %lastmessages = ();
+    }
+}
+
 =head2 la_log($level, @sprintf_args)