From e55f312868c7cc374b74ac00595fddc7a01bcd80 Mon Sep 17 00:00:00 2001 From: Dan Book Date: Sun, 10 Dec 2017 15:07:17 -0500 Subject: [PATCH] add slog functions to be exportable --- lib/Log/Contextual.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lib/Log/Contextual.pm b/lib/Log/Contextual.pm index e8c1d83..3f10c89 100644 --- a/lib/Log/Contextual.pm +++ b/lib/Log/Contextual.pm @@ -26,9 +26,11 @@ sub stash_name { return $cv->GV->STASH->NAME; } -my @dlog = ((map "Dlog_$_", @levels), (map "DlogS_$_", @levels)); +my @dlog = ((map "Dlog_$_", @levels), (map "DlogS_$_", @levels), + (map "Dslog_$_", @levels), (map "DslogS_$_", @levels)); -my @log = ((map "log_$_", @levels), (map "logS_$_", @levels)); +my @log = ((map "log_$_", @levels), (map "logS_$_", @levels), + (map "slog_$_", @levels), (map "slogS_$_", @levels)); sub _maybe_export { my ($spec, $target, $name, $new_code) = @_;